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_ PREFACE 


This manual assumes the reader is familiar with PDP-1l assembly 
language programming and with floating point operations in general. 


For background in the papertape system, refer to the PDP-11 Paper Tape 
Software Programming Handbook (DEC=11-GGPC-D). 
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CHAPTER 1 
FPMP-11 OVERVIEW 


1,1 INTRODUCTION 


The Floating-Point Math Package, FPMP-11, is designed to bring the 2/4 
word floating point format of the FORTRAN environment to the paper 
tape software system of the PDP-1l. The numerical routines in FPMP-11 
are the same as those of the DOS-11 Fortran Operating Time System 
(OTS). TRAP and error handlers have been included to aid in 
interfacing with the FORTRAN routines. 


FPMP-1l1 provides an easy means of performing basic arithmetic 
operations such as_ add, subtract, multiply, divide and compare. It 
also provides transcendental functions (SIN, COS, etc.), type 
conversions (integer to floating point, 2 word to 4 word, etc.) and 
ASCII conversions (ASCII to 2 word floating point, etc.). 


Floating-point notation is particularly useful for computations 
involving numerous multiply and divide operations where operand 
magnitudes may vary widely. FPMP-11 stores very large and very small 
numbers by saving only the significant digits and computing an 
exponent to account for leading and trailing zeros. 


To conserve core space in a small system, FPMP-1l can be tailored to 
include only those routines needed to run a particular user program. 


1.2 HARDWARE REQUIREMENTS 


The FPMP-1l package is designed for use on any PDP-1l with at least 8K 
of core, and can be easily reassembled to take advantage of the 11/20 
EAE, 11/45 EIS, or 11/45 FPU (refer to section 3.5 for detailed 
instructions). 


1.3 SOFTWARE REQUIREMENTS 


LINK-11S (or the DOS LINK-11 linker) is used to link a user program 
with an FPMP-11 object module to create a load module. PAL-11S (or 
MACRO-11 under DOS-11) is used whenever the FPMP-11 package is 
reassembled. 


1.4 FLOATING-POINT NOTATION 


A floating-point number may be written as a mantissa, which consists 
of the floating-point number with its decimal point shifted a given 


number of places in either direction, and an exponent which indicates 
the number of places that the decimal point was shifted and the 
direction of the shift. A negative exponent corresponds to a shift to 
the right, while a positive exponent corresponds to a shift to the 
left. Thus, the mantissa multiplied by the base (radix) of the number 
system in use, raised to a power as supplied in the exponent, gives 
the value of the number in fixed-point notation. For example, the 
decimal number 12 in fixed-point notation can be represented as 


12 or 12.0 


In floating-point notation with a base of 10, the number might appear 
as 
12 x 107 


where the mantissa is .12 and the exponent, 2. 


A fraction, such as twelve ten-thousandths, is represented as 
-0012 


in fixed-point notation and in floating-point notation as 


612 x 1072 


The minus sign before the exponent indicates that the significant 
digits of the mantissa are to be shifted right from the decimal point. 


In FPMP-11 all numbers are manipulated and stored in binary notation. 
With a radix of 2, the decimal number 12 is represented as 


1100 
and in floating-point format as 
~1100 x 24 


Multiplication and division are accomplished by shift operations: each 
one -place shift to the left represents multiplication by two; each 
equivalent shift to the right represents division by two. 


A floating-point number may be represented in an infinite variety of 
ways, Since the decimal point may be shifted any number of places in 
either direction. If the decimal point is shifted until it appears 
immediately to the left of the most significant digit, the number is 
said to be normalized. The mantissa of a normalized floating-point 
number may be stored as an integer, Since the decimal point is 
understood to appear to the left of the most significant digit. In 


computing a mantissa from decimal input, FPMP-11 uses the convention 
1/2 <|MANTISSA|<1 


to normalize the input value. Note that when |MANTISSA| is stored as 
a binary fraction in normalized form, the left most (high order) bit 
is always al. The only exception to the normalization rule is’ the 
floating-point zero (either single or double precision) which has a 
mantissa and exponent both equal to zero, 


1.5 FLOATING=-POINT NUMBER STORAGE 


FPMP-11 floating-point numbers are stored as two 16-bit PDP=-11 words 
(single precision) or four 16-bit PDP=-11 words (double precision). 
The sign of the number is bit 15 of the first word. (0 indicates 


positive, 1 indicates negative). The binary exponent is stored in 
bits 14-7 of the first word. The exponent is stored in excess 128 
(200,) code. .The value of the exponent is obtained by subtracting 
200, from bits 14-7 of the first word. 

NOTE 


The single and double precision formats shown below 
are limited to normalized numbers. The high-order 
bit of the mantissa (which is always 1) is omitted 
from its implied position (bit 7 of WORD n) in order 
to allow one more bit in the exponent field. 


1.5.1 Single Precision 


The mantissa and exponent are stored as follows: 


WORD n 
c 
15 14 7 6 0 
WORD n+2 
[Low-order mantissa 
15 0 


The first word (lowest core address) contains the sign of the 
mantissa, the exponent excess 128, and the high-order mantissa 
(absolute value). The second word is the low-order mantissa (absolute 
value continued). 


1.5.2 Double Precision 


Double precision format is identical to single precision format except. 
that it has two additional words (WORD n+4 and WORD n+6) of low-order 
mantissa. 


WORD n WORD n+2 

mantissa | mantissa | 
15 14 7 6 9 15 0 
WORD n+4 WORD n+6 
| _.Mantissa _ | | lowest order mantissa | 
15 0 15 0 


The list below provides examples of numbers in decimal form, binary 
floating point notation and single precision internal form. 


Decimal Binary Internal Form 

Value Floating Point Single Precision 

(octal) 

1 0.1 x 2 040200 000000 

2 0.1 x 22 040400 000000 

5 0.101 x 2° 040640 000000 
10 0.101 x 2° 041040 000000 
Le 0.10110101... x 2” 040265 002363 
Od Ou, 5 140200 000000 
0.5 pas 040000 000000 
0.25 ie ae 037600 000000 
0.75 0.11 x 2° 040100 000000 
-0.25 a oat ie 137600 000000 


CHAPTER 2 


DESCRIPTION OF PACKAGE 


As distributed the FPMP-11l package contains three sub-packages: the 
object tape of the single precision functions, the object tape of the 
double precision functions and the source tapes. 


2.1 SINGLE PRECISION PACKAGE 


The single precision package is an object module tape 
(DEC-11-NFPMA-A-PR1) which includes the FPMP-1l TRAP and error 
-handlers and the following OTS routines for two-word floating point 
operation: 


SADR Add routine 
SSBR Subtract routine 
SMLR Multiply routine 
SDVR Divide routine 
SCMR . Compare routine 
SIN Sine routine 
Cos Cosine routine 
AINT Truncation routine 
ATAN Arctangent routine 
ATAN2 Arctangent routine with two arguments 
SQRT Square root routine 
TANH Hyperbolic tangent routine 
EXP Exponential routine 
ALOG Natural logarithm routine 
ALOG10 Base-10 logarithm routine 
and the ASCII input/output conversion routines. There are also 


routines to load and store the FLAC (FLoating-point ACcumulator) which 
may be called through the TRAP handler. (Refer to section 3.1.) 


The functions are identical to their FORTRAN counterparts and are 
described in more detail in Appendix D. 


2.2 DOUBLE PRECISION PACKAGE 


The double precision package is an object module tape 
(DEC-11-NFPMA=-A=-PR2) which includes the TRAP and error handlers and 
the following OTS routines for four-word floating point operations: 


SADD Add routine 

SSBD Subtract routine 

SMLD Multiply routine 

SDVD Divide routine 

$CMD Compare routine 

DSIN Sine routine 

DCOS Cosine routine 

DATAN Arctangent routine 

DATAN2 Arctangent routine with two arguments 
DSQRT Square root routine 

DEXP Exponential routine 

DLOG Natural logarithm routine 
DLOG10 Base-10 logarithm routine 


and ASCII input/output conversions routines. There are also routines 
to load and store the FLAC which may be called through the TRAP 
handler (refer to section 3.1). 


Appendix D contains a more detailed description of the functions. 


2.3 SOURCE TAPES 


The source tapes (DEC-11-NFPMA-A-PA1-PAG) contain the source code for 
the TRAP handler, the error handler and all the OTS routines described 
in Appendix D. Conditional assembly instructions are included in the 
source code to aid in the construction of specially tailored packages. 
For example, an object tape of only the TRAP and error handlers’ and 
the arithmetic functions, add, subtract, multiply and divide can be 
easily created. Such a package can result in great savings of core 
when the other functions are not required. (Refer to section 3.5 for 
information on creating special packages.) 


2.4 CONVERSION ROUTINES 


The subroutines included in FPMP-1l to perform conversions to and from 
ASCII strings..are those used by FORTRAN to perform Input/Output. The 
FPMP-11 routines do not perform any actual I/0, but simply convert 
strings of ASCII characters in memory to the internal form of 
floating-point numbers or integers used by other FPMP-11 subroutines 
and convert numbers in internal form to ASCII strings. 


In order to effectively use the ASCII conversion routines of FPMP-1l, 


the meaning of 
routines and the vario 
Table 2-1 contains 
conversion routines: 


INTERNAL 
FORM 


Precision 
Precision 


Single 


Single Precision 


us data formats 
the various 


data 
TABLE 2=<1 
DATA FORMATS 
EXTERNAL 
INPUT FORM 


Decimal number with 


or without a decimal 


point or exponent 
field. 


Decimal number 
with or without a 
decimal point or 
exponent field 


Decimal number with 


involved 


the various parameters which must be passed to these 
understood. 
formats processed by FPMP=-11] 


must be 


EXTERNAL OUTPUT 
FORM 


Decimal number 
exponent field 
decimal point. 


Decimal number 
exponent field 
decimal point. 


Decimal number 


or without a decimal 
point or exponent 
field 


decimal point 


Decimal number with a 
decimal point and with 
or without an E exponent 
field (see table 2-2) 


Decimal number with 
or without a decimal 
point or exponent 
field. 


Single Precision 


Decimal number without 
a decimal point or 
exponent 


Decimal number with- 
out a decimal point 
or exponent 


Integer 


Integer Octal number Octal number 


The following FPMP-11 routines perform the above conversions: 


$DCI D conversion for input 
$DCO D conversion for output 
$RCI E,F, and G conversion for input 
SECO E conversion for output 
SFCO F conversion for output 
$GCO G conversion for output 
—} SICI I conversion for input 


— SICO I conversion for output 
— SOCI O conversion for input 
—-SOCO O conversion for output 


Each of these routines requires one or more of the following 
parameters: 


Ww 


a) for F type conversion, 


The width of the ASCII field in characters. The field width 
w of all output conversions should always be large enough to 
include spaces for the decimal point, sign, and exponent. 
In all such conversions, if w is not large enough to 
accomodate the converted number, asterisks are placed in the 
ASCII field. 


The decimal position: 


a) on input, the decimal point is assumed to be d digits 


from the right hand end of the ASCII field, if no 
explicit decimal point is found. 


b) on output, d digits appear to the right of the decimal 


point. 


the scale factor: 


(ASCII number)=(internal no.) #9 (scate factor) 


b) for D and E type conversions, the scale factor multiplies 


the fraction by a power of ten, but the exponent is 
adjusted, leaving the number unchanged except in form. 


c) for G type conversions, the scale factor is not used 


unless the magnitude of the number is such that E format 
is used. 


d) In all input operations, the scale factor is not used if 


there is an exponent in the external field. 
NOTE 
Input conversion routines handle all blanks as 


zeros. For example, 3.0E2us in a six character 
field would be considered to be 3.0E20. 


TABLE 2-2 


G-TYPE OUTPUT CONVERSIONS 


Routine $GCO is called with parameters p=P, w=W, and d=D (where P, W, 
D are integer constants): . 


. Magnitude of data Resulting Conversion 


0.1<M<1 © F-type with p=0,w=W-4 and d=D 
1<M<10 F-type with p=0,w=W-4 and d=D=-1. 
100-2 <m<i0P71 F-type with p=0,w=W-4 and d=1. 
10D-1zm<102 F-type with p=0,w=W-4 and d=0. 
All others E-type with p=P,w=W, and d=D. 
Examples: 
The following internal numbers are shown converted according to 
various format parameters (b=blank): 
(A) ONE=-WORD INTEGERS: 
INTERNAL I (w=5) I (w=7) O(w=10) 
(Decimal) 
5 bbbb5 bbbbbb5 bbbbbbbbb5 
10 bbb10 bbbbb10 bbbbbbbb12 
-23 bb=-23 bbbb-23 bbbbbbb=-27 
0 bbbb0 bbbbbb0 bbbbbbbbb0 
123,456 ReAER b123456 bbbb361100 


(B) TWO-WORD FLOATING POINT: 


ae (P=0) ----- 
INTERNAL NO. E (w=10 ,d=2) 
0 bb0.00E 00 
1 bb0O.10E 01 
-l b-0.10E O01 
0.1 bb0O.10E 00 
555 bb0.55E 03 
ena (P=l)c=s=- 
0 bb0.00E-01 
1 bb1.00E 00 


(C) FOUR-WORD FLOATING POINT: 


D-type conversion is the only one available for 4-word 
to E format except that the exponent part 


numbers. It is similar 
prints with a D instead of an E. 


F (w=10,d=2) 


bbbbbb0.00 
bbbbbb1.00 
bbbbb-1.00 
bbbbbb0.10 
bbbb555.00 
bbbbbb0.00 


bbbbbb0 .00 
bbbbb10.00 
bbbbbb1.00 


G(w=10,d=2) 


bb0.00bbbb 
bb1.00bbbb 
b-1.00bbbb 
bb0.10bbbb 
bb0.55E 03 


.bb0.10E-02 


bb0.00bbbb 
bb1.00bbbb 
bb0.10bbbb 


floating-point 


CHAPTER 3 


USING FPMP-11 


The user program can access the FPMP-1l routines by TRAP instruction 
and/or direct call of the routine. (For information on writing a user 
program, refer to the Papertape Software Programming Handbook.) The 
TRAP handler saves and restores the contents of the PDP-1l general 
registers. The OTS routines normally do not. All FPMP-11l entry 
points used by the program must be declared with a .GLOBL assembler 
directive in the user program. (The entry points are listed in 
Appendix D. ) To include user floating point error routines, 
initialize the global location SERVEC as described in section 3.4. 


3.1 USING THE TRAP HANDLER WITH FPMP-11 


In order to simplify use of the various OTS routines, a TRAP handler 
is included in the FPMP-1l package. If TRAP calls are being used, the ~ 
user program must initialize the TRAP vector at location 34g. The 
TRAP vector can be initialized by putting the following code in the 
user program. 


eGLOBL TRAPH 
MOV #TRAPH, G#34 gaddress of TRAP handler 
‘MOV #340,@#36 zset priority of operation 


The TRAP handler, TRAPH, uses software to simulate a floating-point 
accumulator (FLAC). The FLAC is a pseudo-register which is the 
implicit destination address of every trapped operation. Operations 
can be performed on the FLAC by issuing coded TRAP instructions in the 
user program. In addition to being used with the OTS functions, items 
can be loaded into and stored from the FLAC. 


The FLAC is maintained by the TRAP handler in double precision format; 
however, it is important to note that single precision operations 
(e.g. SADR or SQRT) destroy the contents of the two lowest order 
words of the FLAC. In particular, these two words are not set to 
zero. This means that a single precision function can operate on the 
FLAC while it contains either a single or double precision number, but 
the result will be single precision and should not be operated on by 
the double precision routines. A number can be explicitly converted 
between the single and double precision formats by the FPMP-11 
routines SRD and $DR which convert single to double and double to 
single respectively. These routines, $RD and $DR, can not be called 
via the TRAP handler. 


Because it contains the floating accumulator, the TRAP handler of 
FPMP-11 is not re-entrant. For this reason, care must be exercised if 
the TRAP handler is to be called both in a main program and in an 
interrupt-driven subroutine. To call the TRAP handler to perform 
floating point operations within an interrupt-driven subroutine, the 
contents of the FLAC should be pushed onto the processor stack before 
any other TRAP calls are executed. The FLAC can be pushed onto the 
stack by executing the instruction "TRAP 73". After all TRAP calls 
have been completed by the interrupt-driven subroutine, and before 
returning from the interrupt, the FLAC must be restored from the stack 
(it must be at the top of the stack) by executing the instruction 
"TRAP 71". If the double precision routines are being used, the traps 
-are TRAP 74 and TRAP 72 respectively. 


Addressing Modes Available in TRAP Calls: 
3.-1.1 Stack Mode 
The operand is considered to be on the top of the R6~ stack. (R6 is 


General Register 6) The operand is popped off for use. (exception: 
STR and STD push the FLAC onto the stack.) 


3.1.2 @RO Mode 


General Register 0 points to the operand. Register 0 is not changed 
by FPMP-1l. 


3.1.3 Immediate Mode 
The operand immediately follows the TRAP instruction in the next two 


or four words depending on whether the operation is single or double 
precision. 


3.1.4 Relative Mode 

The address of the operand, relative to the PC, immediately follows 
the TRAP instruction. For example to address an operand at location 
A, code the word following the TRAP as .WORD A-. 

EXAMPLE 3 


10,9 is internally coded as: 


lo _{10000100|0100000 [0000000000000000 


15 14 7 6 0 15 0 


which is 041040 000000 (octal). To add 10, 
the four modes (single precision): 


0 to the FLAC in each of 


Stack Mode: 


MOV #000000,-(SP) 7PUSH FLOATING 
MOV #041040,-(SP) 710 ONTO THE STACK 
TRAP ADR+STACKM ;ADD TO FLAC 


Symbols ADR (for single precision add) and STACKM (for stack mode) are 
assigned values 12g and 05 respectively. (Refer to page 17.) 


@RO Mode: 


MOV #TEN,RO GET ADDRESS OF OPERAND IN RO 
TRAP ADR+ARM ADD TO FLAC 
TEN: .~WORD 041040,000000 ;FLOATING POINT TEN 


Symbols ADR and ARM (@RO mode) are assigned the values 12, and 100, 
respectively. 


Immediate Mode: 


TRAP ADR+IMMEDM ADD TO FLAC 
eWORD 041040,000000 ;FLOATING POINT TEN 


Symbols ADR and IMMEDM (immediate mode) equal 12, and 200, 
respectively. 


Relative Mode: 


TRAP ADR+RELM ADD TO FLAC 
«WORD TEN-. 7 RELATIVE ADDRESS OF OPERAND 
TEN: .~WORD 041040,000000 ;FLOATING POINT TEN 


Symbols ADR and REIM (relative mode) equal 12 and 300, 
respectively. 8 


To perform the above operations in double precision, use ADD=14g, 
instead of ADR, and extend the floating point ten with two more words 
of zeros (i.e. TEN: »eWORD 041040,0,0,0; double precision 
floating-point ten). 


The source form of a TRAP call is: 
TRAP num + mode 
where num is the number of the OTS routine to be called (refer to 


Appendix D for the OTS routine numbers), and mode is one of the 
following addressing modes: 


Mode 

0 Stack mode 
100g @RO Mode 

200g Immediate mode 
300, Relative mode 


The binary form of the TRAP instruction is: 
WORD: 
0001001 mmrrrrrr 
15 0 


Where 


mm = addressing mode bits (00 = Stack mode, 01 = @RO mode, 10 = 
Immediate mode, 11 = Relative mode) 
rrrrrr = OTS routine number 


It is suggested that commonly used addressing modes and routine 
numbers be referenced symbolically. For instance, the statements 


STACKM=0 7;STACK MODE 
ARM=100 7;@RO MODE 
IMMEDM=200 ; IMMEDIATE MODE 
RELM=300 ; RELATIVE MODE 


ADR=12 SINGLE PRECISION ADD ROUTINE 


SBR=13 ;SINGLE PRECISION SUBTRACT 
MLR=21 7SINGLE PRECISION MULTIPLY 
DVR=25 SINGLE PRECISION DIVIDE 


allow TRAP calls to be coded as follows: 


TRAP ADR+RELM ;ADD IN RELATIVE MODE 
TRAP MLR+tARM ;MULTIPLY IN @RO MODE 
TRAP SBR+IMMEDM ;SUBTRACT IN IMMEDIATE MODE 


Note that single argument, single result functions, such as square 
root (SQRT) require no addressing (refer to Appendix D); the argument 
is taken from the FLAC and the result is stored back into the FLAC. 
Consequently, the addressing mode of a TRAP call to such a function is 
ignored by the TRAP handler, and no address is used. 


The TRAP handler sets the condition codes to reflect the contents of 
the FLAC after every operation except a compare. After any operation 
except floating point compare, the condition bits are set as follows: 


Condition Codes 


FLAC N Z Vv Cc 
<0 1 0 0 0 
=0 0 1 0 0 
>0 0 0 0 0 


After a floating point compare (either single or double precision), 
the condition codes are set as follows: 


FLAC<OPR Z 0 0 0 
FLAC=OPR 0 1 0 0 
FLAC>OPR 0 0 0 0 


where OPR is the operand addressed by the TRAP compare instruction. 
EXAMPLE : 
To calculate 


-B+SQRT (B*B-4*A*C) 


2*A 


the following program might be written: 


TRAP LDR+RELM LOAD A INTO FLAC 


eWORD A-. ; RELATIVE ADDRESS OF A 
TRAP MLR+IMM ;MULTIPLY BY 2.0 
FTWO: .~.WORD 040400,0 CONSTANT 2.0 

TRAP STR+RELM ;STORE FLAC IN TEMP1 

eWORD TEMP1-. ; RELATIVE ADDRESS OF TEMP1 

TRAP MLR+RELM 7;MPY BY 2.0 TO GET 4*A 

«WORD FTWO-. 

TRAP MLR+RELM *MPY BY C 

eWORD C-. 

TRAP STR+tRELM *STORE FLAC IN TEMP2 

eWORD TEMP2-. 

MOV #B,R0 GET ADDRESS OF B INTO RO 

TRAP LDR+tARM ;LOAD B INTO FLAC (@RO MODE) 

TRAP MLR+ARM . 7;CALCULATE B*B 

TRAP SBR+RELM ;SUBTRACT 4*A*C (IN TEMP2) 

eWORD TEMP2-. 

TRAP SQRT ; CALC SQUARE ROOT OF FLAC, 
7;NO ADDRESSING REQUIRED 

TRAP SBR+ARM ADD MINUS B 

TRAP DVR+RELM ;DIVIDE BY 2.0*A IN TEMP] 

eWORD TEMP1-. 

TRAP STR+RELM 7;STORE FLAC INTO X 

eWORD X-. 

A: «WORD 040400,0 ;VALUE OF A (2.0) 

B: .~WORD 040640,0 ;VALUE OF B (5.0) 

C: .~WORD 037600,0 ;VALUE OF C (0.25) 

X: .=.+4 ; LOCATION FOR RESULT 

TEMP1l: .=.+4 ; TEMPORARY 

TEMP2: .=.+4 ; TEMPORARY 


The above example assumes that the TRAP vector (location 34, ) has 
been initialized as previously described. 


3.2 ACCESSING USER ROUTINES VIA THE TRAP HANDLER 


Special floating-point functions may be coded as assembly language 
subroutines and accessed via TRAP calls if one of the following 
calling conventions is used: 


ds, POLISH - receive two arguments, either Single or double 
precision, on the stack, and return one result, of the same 
precision as the arguments, on the stack. Return must be viaa 
JMP @(R4)+ 


2 J5RR - The user routine should be expecting a call of the 
following form: 


JSR R5,subr ;jump to subroutine 

BR A 

-WORD arg ;Single argument's address 
A: : 


arg is the symbolic address of the subroutine's single or double 
precision argument. Note that the instruction following the JSR 
is not necessarily a BR. The returned result in registers RO-R3 
is stored in the FLAC by the TRAP handler. 


Furthermore, user routines to be called by the TRAP handler must 
reside within the 8K words physically following the beginning of the 
TRAP handler in memory, and an entry must be made in the TRAP 
handler's dispatch table. The dispatch table called TBL$42 in TRAPH, 
is organized as follows: 


l. There is a one word entry corresponding to each routine=-number 
which can be coded in a TRAP call (total of 64 words). 


26 The position of the word in the table corresponds to _ the 
routine=number which calls it (e.g. the word at location TBL$42 
is referenced by "TRAP O+mode", while the word at location 
TBLS42+10. is referenced by "TRAP 5+mode"). In general, the 
word at location TBL$42+2n is referenced by the call TRAP n+mode. 


34 The word at each table location is coded as follows: 


ae O-indicates no routine corresponds to this table entry. 
b. 

[#2298 _| relative address | 
15 13 0 


Single precision routine 
double precision 
bit 14 set to 0 J5RR mode call 

1 POLISH mode call 
bits 13-0 = The address of the entry point of the 
routine to be called minus the address 
of the label PT$42 in TRAPH. 


bit 15 set to 0 
1 


In J5RR mode, TRAPH supplies the FLAC as the single argument and 
stores the result back into the FLAC. No explicit address is accepted 
in the TRAP instruction. In POLISH mode, TRAPH uses the FLAC as_ one 
argument and the location addressed in the TRAP call as the second. 
The result is stored in the FLAC. Refer to section 3.1 for addressing 
modes in TRAP calls to FPMP-11. 


3.3 DIRECT CALLS TO OTS ROUTINES 


Occasionally it is desirable to call 
instance, some routines cannot be accessed using the TRAP handler 
(refer to Appendix D). Furthermore, eliminating the TRAP handler 
overhead decreases the execution time of the user program. Note that 
when called directly, the OTS routines do not preserve the contents of 
the general registers, nor do they in general set the condition codes 
to reflect the result of the operation, these functions are performed 
by the TRAP handler when it is used. 


OTS routines directly. For 


Any of the OTS routines can be directly called by 
global entry point and observing the proper calling conventions. 
Calling conventions fall into a few basic types as follows (the 
calling conventions for each routine are given in Appendix D): 


using its FPMP-11 


jn eT eel 
Polish mode calls are designed to be most effective in a 
compiler-generated environment. They are easily produced by a 


compiler and are particularly efficient in 
interpretation overhead. 


storage space used and 


The routines that are called with Polish mode are: 


No. of Location of 
Name Arguments Result 
SADD 2 4 word sum on top of. stack 
SADR 2 2 word sum on top of stack 
$CMD 2 sets condition codes 
SCMR 2 sets condition codes 
SDINT 1 integer result on top stack : 
SDR 1 2 word result on top of stack 
$DVD 2 4 word quotient on top of stack 
SDVI 2 integer quotient. on top of stack 
SDVR 2 2 word quotient on top of stack 
SID 1 4 word result on top of stack 
SIR 1 2 word result on top of stack 
SINTR 1 result on top of stack 
SMLD 2 result on top of stack 
SMLI 2 result on top of stack 
SMLR 2 result on top of stack 
SNGD 1 result on top of stack 
SNGI ZL result on top of stack 
SNGR 1 result on top of stack 
SPOPRS5 4 result in registers RO-R3 
SPOPR4 4 result in registers RO-R3 
SPOPR3 2 result in registers RO,R1 
SPSHR1L 1 result on top of stack 
SPSHR2 1 result on top of stack 
SPSHUR3 2 result on top of stack 
SPSHR4 4 result on top of 


stack 


No. of Location of 


Name Arguments Result 

SPSHR5 4 result on top of stack 
“$RD 1 result on top of stack 
SDI 1 result on top of stack 
SRI 1 result on top of stack 
SSBD 2 result on top of stack 
SSBR 2 result on top of stack 


Each routine called in Polish mode pops the necessary arguments off 
the R6 (General Register 6) stack and pushes the final result onto the 
stack. Multi-word arguments are always pushed onto the stack 
low-order word first, so that the highest-order word (the one 
containing the sign and exponent) remains on top of the stack (@SP). 


Arguments must be pushed onto the stack before entering Polish mode so 
that the source operand is on the top of the stack and the destination 
operand is next down from the top. 
Polish mode is entered with a JSR in the form 

JSR R4,$POLSH 
where $POLSH is a global subroutine in FPMP-1ll. 


Routines to be used are then called by supplying a word with the 
address of the routine. 


eWORD SADR 


Exit from Polish mode is by coding a word containing the address of 
the next instruction to be executed. For example to execute the next 
instruction in sequence, 


eWORD .+2 


Using Polish mode, coding to calculate (A+B)*C with the _ single 
precision routines might be written as: 


~GLOBL $POLSH, $ADR,$MLR 


MOV C+2,~(SP) ;PUSH C ONTO STACK. 
MOV C,-(SP) 
MOV B+2,-(SP) ;PUSH B ONTO STACK. 
MOV B,-(SP) 
MOV A+2,-(SP) ;PUSH A ONTO STACK. 
MOV A,-(SP) | 
JSR R4,$POLSH ;ENTER POLISH MODE 
«WORD SADR ;ADD A TO B AND LEAVE 
;THE RESULT ON THE STACK 
eWORD S$MLR ;MULTIPLY PREVIOUS SUM BY 
;C AND LEAVE RESULT ON STACK. 
«WORD .+2 ;LEAVE POLISH MODE. | 


After execution of the above code, the result of the calculation 
(A+B) *C is on the top of the R6 stack. 


The routine "$POLSH" that causes entry into Polish mode is located at 
global entry $POLSH in FPMP-11. It is coded as follows: 


-GLOBL SPOLSH 
$SPOLSH: TST (SP)+ ;DELETE OLD VALUE OF R4 FROM 
7;THE TOP OF THE STACK. 
JMP @(R4)+ sENTER POLISH MODE. 


Each routine called in Polish mode takes its operands from the top of 
the stack and pushes its result, if any, back onto the stack. Each 
routine returns with a "JMP @(R4)+" which passes control to the next 
routine in sequence. User routines can be written and called in 
Polish mode provided they preserve the contents of R4 and return by 
executing a “JMP @(R4)+". The following is an example of a user 
subroutine written for Polish calls. 


DUP: MOV 2(SP) ,-(SP) ;DUPLICATE STACK ITEM 
MOV 2(SP) ,-(SP) ;TWO WORD ITEM 
JMP @(R4)+ 7 RETURN 


When executed, this subroutine duplicates the two-word item on the top 
of the stack. 


3.3.2 J5RR Mode 


J5RR is the calling convention used by most of the FORTRAN library 
functions. J5RR mode calls are of the form 


JSR R5,subroutine 


All argument addresses are placed in a list following the subprogram 
call. The generalized standard sequence is: 


.GLOBL SUBR 
JSR R5,SUBR 
BR XX 


Ne © © Wp 


XX: 


where A, B...Z are argument addresses. i 


Subprograms are responsible for not altering the contents of register 
R5 since it is the parameter list pointer. 


The results of subroutines called in J5RR mode are generally stored as 
follows: integer results are returned in RO, two-word floating point 
results in RO and R1 and four-word results in RO-R3. 


An example of a call in J5RR mode is this call to calculate the square 
root of X: 


eGLOBL SQRT 


JSR R5,SQRT ;CALL TO SQRT ROUTINE 
BR A ;RETURN POINT 
«WORD xX ;ADDRESS OF ARGUMENT 
A: : ; CONTINUE . PROGRAM 
re ~WORD 040400,000000 ;2 WORD FLOATING POINT NUMBER, 


;VALUE OF X=2. 


In this example, the result is returned as a two-word floating point | 
number in RO=-Rl. 


The functions which use J5RR mode calls are: 


# of Register (s) for 
Function Arguments Result 
ALOG 1 RO, R1 
_ ALOG1O 1 RO,R1 
AINT 1 RO,R1 
ATAN 1 RO, R1 
ATAN2 2 RO,R1 
DBLE 1 RO-R3 
DLOG 1 RO,R3 
DLOG10 1 RO, R3 
DCOS 1 RO, R3 
DSIN 1 RO-R3 
DSQRT 1 RO-R3 
DATAN 1 RO-R3 
DATAN2 2 RO-R3 
DEXP 1 RO-R3 
EXP 1 RO,R1 
FLOAT 1 RO,R1 
IFIX 1 RO 
IDINT 1 RO 
INT 1 RO 
SIN 1 RO-R1 
COs 1 RO-R1 
SNGL 1 RO, R1 
TANH 1 RO,RL 


3.3.3 JPC Mode 


The JPC mode of subroutine call is used for communicating with the 
ASCII conversion routines in FPMP-11. With JPC mode, the arguments 
must be pushed onto the stack before the subroutine is called. The 
call to each individual subroutine is listed in Table 3-l. In 
general, a JPC mode call is coded as follows: 


MOV R3,-(SP) s;push first argument onto stack 
MOV #ARG,- (SP) push last argument onto stack 
JSR PC,subr :call subroutine 


For example, to convert a ten character ASCII field at location BUFFER 
to internal single precision format, the following might be coded: 


MOV #BUFFER,- (SP) *PUSH ADDRESS OF FIELD 


MOV #10.,-(SP) ;PUSH LENGTH OF FIELD 
CLR =-(SP) 7D-SCALE IS ZERO 

CLR -(SP) 7P-SCALE IS ZERO 

JSR PC,$RCI ;CALL CONVERSION ROUTINE 


After the above code is executed, the internal representation of the 
number at location BUFFER is in the top two words of the stack. The 
ten characters at location BUFFER can be read from an I/O device, or 
coded aS constants: For example, 


BUFFER: .ASCII /113.25bbbb/ 
or 
BUFFER: .ASCII /-3.627E+09/ 


TABLE 3-1 


ROUTINES WHICH USE THE JPC MODE OF CALL 


Name |Description 


$DCI 


— {SICI 


“—|$ICO 


ASCII to dbl. 
prec. 


Dbl. 
ASCII 


prec. to 


Single prec. ‘to 
ASCII 
E format 


Single prec. 
to ASCII 
F format 


Single prec. 
to ASCII 
G format 


ASCII to integer 


Integer to ASCII 


Push addr. of start of ASCII field 
Push length of ASCII field in bytes 
Push format scale D (from W.D) 
position of assumed decimal 

point 

Push P format scale 

JSR PC,SDCI 


Push addr. of start of ASCII field 

Push length of ASCII field in bytes 

Push D part of W.D (position of 
decimal point) 

Push P scale 

Push 4 word value to be converted 
lowest order word first 

JSR PC,$DCO 


Same calling sequence as $DCO 
except that a 2 word value is to 
be converted. 

JSR PC,$ECO 


Same calling 
sequence as 
SECO. 

JSR PC,$FCO 


Same calling 
as SECO. 
JSR PC,$GCO 


Push addr. of start of ASCII field 
Push length in bytes of ASCII field 
JSR PC,SICI 


Push addr. of ASCII field 

Push length of ASCII field in bytes 
Push integer value to be converted 
JSR PC,$ICO 


Location 


Of Result 


4 word 
result on 
top of 
stack 


ASCII 
field 
specified 


ASCII 
field 
Specified 


ASCII 
field 
specified 


ASCII 
field 
specified. 


Integer 
result on 
top of stack 


ASCII 
field 
specified 


TABLE 3-1 (Cont.) 


ROUTINES WHICH USE THE JPC MODE OF CALL 


Call Location 
Name | Description Format Of Result 


m~/SOCI|ASCII to octal Same calling sequence as $ICI Top of stack 
JSR PC,$OCI 


~m./SOCO/Octal to ASCII Same calling sequence as $ICO ASCII field 
JSR PC,S$OCO specified 


$RCI| ASCII to single Same calling sequence as $DCI Two word 


JSR PC,$RCI result on 
top of stack 


The ASCII input conversion subroutines $RCI, $DCI, $ICI, and $QCI 
preserve the contents of the general registers and restore them to 
their original values before returning. The ASCII output conversion 
subroutines $DCO, $ECO, $FCO, $GCO, $ICO, and $QCO destroy the 
contents of general registers RO, Rl, R2, and R3, but preserve’ the 
contents of R4 and R5. 


Errors detected by the ASCII input conversion subroutines $RCI, $DCI, 
$ICI, and $OCI cause the subroutine to return with a zero result and 
with the C bit set in the condition codes. 


3.4 ERRORS 


All errors in floating-point operations, such as overflow of the FLAC 
or an illegal TRAP instruction, are handled by the routines SERR and 
SERRA. These routines save the contents of RO, and load the error 
code into RO. The routines then perform a JSR PC,@$ERVEC. SERVEC is 
a global location which is initially set to contain the address of a 
HALT instruction but can contain the address of a user error handling 
routine. If the user error handling routine is to be used, code is 
inserted in the initialization of the program as explained in section 
3.4.1. 


The error code generated by the FPMP-11 subroutine is put in RO in the 
following format: 


RO: 
15 8 7 0 


Error codes and their meanings are shown in Table 3-2. 


3.4.1 User Error Handling Routines 


To include a user error handling routine in a program, the following 
code must be included in the initialization of the program. 


~GLOBL $SERVEC 
MOV #ERROR, SERVEC smove address of error routine 
ERROR: user's error handling routine 


The error handling routine can be written to terminate with a HALT 
instruction or, if registers 1 through 5 are saved, to continue the 
program by executing an RTS PC instruction. The only exception is the 
halt after an illegal TRAP instruction (error 0,0) from which it is 
impossible to continue. If such a TRAP occurs, its address is in Rl 
when the error routine is called. 


TABLE 3-2 


FPHP-11 ERROR CODES 


EXPLANATION 


Illegal TRAP instruction. Rl points to the 
TRAP instr, 

Expon. overflow in double prec. addition 
Exponent overflow in real addition 

Double prec. div. by zero 

Expon. overflow in double precision division 
Integer division by 0 

Expon. overflow in real division 

Real division by zero 

Expon. overflow in double prec. mult. 
Exponent overflow during negation 

Expon. overflow in real multiplication 
Product outside of range on integer mult. 
Real outside range on real to integer 
conversion 

Exponent overflow on double to real 
conversion 

DEXP argument greater than 87 

DLOG argument less than or equal to zero 
DSQRT argument less than zero 

EXP argument greater than 87 

ALOG argument less than or equal to zero 

SQRT argument less than zero 

SNGL exponent overflow in round 

Expon. underflow in double prec. addition 
(warning) 

Exponent underflow in real addition (warning) 
Expon. underflow in real div. (warning) 

DEXP argument less than -88.7 (warning) 

EXP argument less than -88.7 (warning) 

Expon. underflow in double prec. mult. 
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(warning) 

Expon. underflow in real multiplication 
Expon. underflow in double prec. division 
(warning) 
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3.5 CREATING SPECIAL PACKAGES 


FPMP-11 source code includes PAL-11S conditional assembly instructions 
which allow tailoring of the FPMP-l1l package to include only the 
functions required by the user program. (Refer to the PAL-11S manual 
(DEC-11-YRWB-D) for information on conditional assembly instructions.) 
The desired routines are then assembled to take advantage of whatever 
hardware features are available. 


3.5.1 Assembly Switch Tape 


To take advantage of the conditional assembly instructions in the 
FPMP-11 source code, a separate tape which sets the switches of the 
desired routines and hardware must be prepared and included in the 
assembly of the FPMP-11 package. 


The switches are set by statements which assign a value to the’ switch 
name. For example, to indicate the availability of the 11/45 FPU 
hardware, the FPU switch is set with the following statement 


FPU=1 


When the FPU switch is set, many FPMP-1l1 routines assemble differently 
to take advantage of the FPU. 


When using the PDP-11/45 FPU option, it is the user's responsibility 
to set up the FPU TRAP vector (location 2449) and the FPU status reg- 

ister (refer to the PDP-11/45 Processor Handbook). Refer to Table 3-3 
for hardware switch option names. 


Significant size and speed advantages can be expected if one of the 
hardware options is present and its corresponding switch is set. If 
no hardware option switch is set the assembler assumes the program 
uses the basic PDP-1ll instruction set. In no case should more than 
one hardware option switch be set during an assembly. 


TABLE 3-3 


HARDWARE OPTION SWITCHES 


Hardware Option 


Switch Name 


FPU 
EAE 
MULDIV 


PDP-11/45 floating point unit 
PDP-11/20 EAE 
PDP-11/45 extended instruction set (EIS) 


NOTE 


If the FPU switch is set during an assembly, the 
assembler being used must be capable of processing 
the extended op codes which will appear. The 
present version (V002A) of PAL-11S does not 
support these op codes, MACRO-11 can be used _ for 
assembly when the FPU switch is set. 


Each section of code in the FPMP-11 package is assigned a number and 
the switch to cause a particular section of code to be included is 
called CNDSn. 


Table 3-4 lists the sections of the FPMP-1l package, the routines 
contained in each section and the switch name to be used, 


For example, to include the DSQRT routine in the package set the 
switch with the following code: 


CND$14=1 
~EOT 


TABLE 3-4 


CONDITIONAL FPMP-11 ASSEMBLY CODES 


Section No. Switch Name Subroutine Contained 


1 CNDS$1 SADD,SSBD 
2 CND$2 SADR, SSBR 
3 CND$3 ALOG ,ALOG10 
4 CND$ 4 AINT,SINTR 
5 CND$5 SCMD 
6 CND$6 SCMR 
7 CND$7 DBLE 
8 CNDS8 SDCI,$RCI 
9 CNDS$9 SDCO,$ECO,$FCO,$GCO 
10 CND$10 DLOG , DLOG10 
11 CND$11 SDINT 
12 CND$12 SDR 
13 CND$13 DSIN,DCOS 
14 CND$14 DSQRT 
15 CND$15 DATAN , DATAN 2 
16 CND$16 SDVD 
17 CND$17 SDVI 
18 CND$18 SDVR 
19 CND$19 DEXP 
20 CND$20 EXP 
21 CND$21 SFCALL 
22 CND$22 IFIX 
23 CND$23 FLOAT 
24 SICI,$OCI 
25 $ICO,$OCO 
26 INT, IDINT 
27 $ID,$IR 
28 SMLD 
29 SMLI 
30 CNDS$ 30 SMLR 
31 CND$31 SNGI,$SNGR, SIGD 
32 CNDS$ 32 SPSHR5,$PSHR4,$PSHR3,$SPSHR2,SPSHR1 
33 CND$ 33 SPOPRS5, SPOPR4,$POPR3 
34 CND$ 34 $RD 
35 CND$35 SRI,$DI 
36 CND$ 36 SNGL 
37 CNDS$ 37 SIN ,COS 
38 CNDS38 TANH 
39 CNDS$ 39 ATAN ,ATAN 2 
40 ND? 40. _$POLSH (switch is always set) 
41 CND$ 41 “SORT 
42 CND$ 42 TRAPH 
43 CNDS 43 SERR, SERRA (switch is always set) 
epandetbt cAEBE og 5, 
5 Cees SX. 


fom 


The CLASS5 switch can be set (CLASS5=1) to have class 5 (warning) 
messages interpreted by the error handler of FPMP-1l1. Normally class 
5 errors are ignored. Many of the FPMP-1l1 transcendental and 
trigonometric functions do not operate properly if the class 5 switch 
is set. 


There are two additional switches which work together with the others. 
When these switches are set the standard single or double precision 
TRAP handler packages are assembled. The two switches are: 


SINGLE Assemble the standard single precision (2 word) 
package when set 
DOUBLE Assemble the standard double precision (4 word) 


package when set. 


The contents of the standard packages are listed in Chapter 2. The 
SINGLE and DOUBLE switches may be set together to produce a combined 
package containing both standard packages. It is also possible to 
include a few double precision subroutines with the standard single 
precision package or to include some of the non-standard routines 
(e.g. integer multiply), with the single and/or double precision 
package. Nore information on creating these special combinations is 
given in section 3.5.1.1. 


3.5.1.1 Preparing the Assembly Switch Tape 
To assemble the FPMP-11l source tape: 


ie Decide which FPMP-11l routines are to be included in the resulting 
package. Refer to Appendix D for a list of available routines. 


Ls Obtain the switch names for the desired routines from Table 3-4. 

ae Decide which, if any, of the hardware option switches is to be 
set. 

4. Create a paper tape or source file (either off-line or using the 
editor) in the following format; (Refer to the Paper Tape 
Software Programming Handbook for information on using’ the 
editor). 
switch-name-1l =1l sFIRST SWITCH TO BE SET 
switch-name~2 = 1 


switch-name-n = 1 ;LAST SWITCI] TO BE SET 
eEOT 


(Where “Switch-name-1" thru “switch-name=-n" are the names of the 
switches to be set.) If preparing the tape off line, be sure to 


put a carriage return/line feed after each line. For example, to 
assemble the standard single precision package to take advantage 
of the EAE, create the following tape: 


SINGLE=1 7;USE STANDARD 2=-WORD PKG. 
EAE=1 SPECIFY EAE 
eEOT 


To assemble a standard double precision package plus integer 
multiply and divide, create the following tape: 


DOUBLE = 1 ;GET STD 4-WORD PKG. 
CND$17 = 1 7; INTEGER DIVIDE 
CND$29 = 1 7; INTEGER MULTIPLY 
eEOT 


‘It is not necessary to worry about interdependency among FPMP-1l 


routines. For example, to create a package containing only the 
Single precision function TANH, the tape 


CND$38 = 1 ; TANH 
~EOT 


is sufficient. The fact that the TANH function calls’ the 
arithmetic routines and other internal functions is resolved by 
the FPMP-11 source code. In particular, the above switch being 
set causes the following routines to be included; TANH, EXP, 
SADR, $SBR, $SMLR, $DVR, S$FCALL, $POLSH, $PSHR3, $ERR, SIR, and 
$RI. 


Assemble the FPMP-11 package with PAL-11S loading the FPMP-11 


_ source tapes (1 thru 6) last. Refer to Appendix B. 


The object module produced by PAL“-11S can now be used as 
described in section 3.6. 


NOTE 


Because of limitations in the symbol table size in 
the 8K version (V002A) of PAL-11S, it is not 
possible to include all FPMP-11l routines in a 
Single assembly. The error message produced by 
the assembler is "S" and the assembly is aborted. 
It is possible however, to assemble as much as the 
Standard single and double precision packages 
together. If the integer and conversion routines 
not included in the standard packages are needed 
along with both standard packages, they can be 
assembled separately by PAL-11S, and the resulting 
tape then linked with the standard packages using 
the LINK-11S linker. If this procedure is used, 
the linker produces error messages because of the 
multiple occurrence of the labels S$POLSH, $V20A, 
SERR, and SERRA. These are non-fatal errors and 
can be ignored. 


3.6 LOADING INSTRUCTIONS 


The FPMP-11l package can be used as distributed by linking the object 
tapes (single or double precision) with the user object program or by 
using the source tapes to assemble a user-tailored package and _ then 
linking the package to the user program. 


The Bootstrap and Absolute Loaders must be resident in core before any 
of the other programs can be loaded. Refer to Appendix A for loading 
instructions. 


The object tape of the user program produced by PAL“-11S (or DOS 
MACRO=11), and the FPMP-11 object tape are linked with LINK=-11S (or 
DOS LINK-11) (refer to Appendix cC for LINK=-11S instructions). 
LINK-11S requires two passes and produces a tape called a load module 
which contains the user program and the FPMP-11 routines. 


Use the Absolute Loader to load this module and execute the program. 
(Refer to Appendix A for details on using the ABS Loader.) 


32.2 


CHAPTER 4 
SAMPLE PROGRAM 


The following sample program illustrates most of the FPMP-11 modes of 
calls. Note that execution of this sample program requires the use of 
the Input/Output Executive (IOX) program which must be loaded before 
the sample program. This program inputs three F10.0 numbers, stores 
them as A,B and_C and prints the numbers stored for verificatio 

The roots of AX2+BX+C=9 are calculated using the formula X=-B+/B2-4AC , 


If A=@ the program halts. 2A 
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“HAAB1e2 
12705? 
U2US67 
G44767 
Q2G174 
veule7* 
UAK464 
141751 
1@4771 
4@03e4 
@21547 
124712 
C4316 
104773 
0022326 
184621 
040400 
eagoaa 
i247e1 
CA0310 
124773 
Ce3514 
b1ieTuUOe 
ULV 460 
10457] 
1445e1 
104713 
CAMEO 
71450 
CACHE] 
104446 
144773 
AUP 66 
144513 
1467es 
uAnedd 
WL1e7THS? 
ACS SH 
tO4T767 
U2EHUb6 
124671 
BALAYA ZERO: 
e208 
104513 
124713 
’aveS4 
194725 
ued 
eCL27e85% 


MOV 
MUV 
MOV 
MOV 


CLR 
CLR 
JOR 


TRAP 
TRAP 
MOV 
MOV 
CmP 
AuD 


MUV 
Jor 
cmp 


BLOS 
TRAP 
»wOKD 
BED 
TRAF 
aWOKD 
TRAF 
WORD 
TRAP 
2ekKOKD 


TRAP 
eWOKYD 
TRAP 
2KOKD 
MUV 


TRAP 
TrAF 
TRAP 
2vwORD 
Be 
Aa.t 
Trar 
TRAF 
«wORD 
TRAP 
TRAP 
eWOKD 
MuV 


Jor 


TRAF 
owOKD 


THARP 
TrAr 
Panes ©) 
TRAr - 
ekORD 
MuV 


Ri,» (SP)3 
RG@,=(SP)} 
R1,=(SP)3 
#10.,=(SP)}7 


=(SP)) 
“(SP); 
PC,$RCT} 


LUR; 
STR*ARM? 
(SP)+,RU}; 
(SP)4,Ri7 
(R@)+, (RB) +} 
#10,,R1; 


#MSGBLK,RS 
PC,PRINT#S 
RO,#C; 


ILOOP; 
LOR*RELMI 
Ae, 

END; 
ADR+RELM? 
Ae, 


“STR*RELM? 


TEMPi«=, 
MLR+IMMP 


C4A400,800h80F 


MLR*RELM; 
C=, 
STR#RELM? 
TEMPe=, 
HE,RG;? 


LUR*ARM; 
MLR +AKMj] 
SoR+RELMI 
TEMP, 
ROOT 
IMAG} 
SGURT? 
STR+RELM? 
TEMP2=, 
SBR*AKM;] 
DVR*RELMI 
TEMP1=, 
#rSGi,R5S; 


PC,PRINT 


LOR+TMM; 
0, 


SER+AKM} 
SpReRELM? 
TEMP, 
DVR+*RELM}? 
TEMP], 
BESGA,R53 


SAVE Ri 

SAVE RO 

PUSH ADOR OF ASCII STRING READ 
PUSH LENGTH 


D FORMAT SCALE 
P SCALE 
CONVERT ONE NUMBER (F10,@) 


LOAD FLAC FROM TOP OF STACK 
STORE INTO VARIABLE A, By, ORC 
RESTORE Ra 

AND Ri 

INCK R@ BY 4 

INCR BUFFER POINTER TO NEXT VAR 


CALL PRINT SUBROUTINE 


LAST VAR? 

LOOP 

LOAD A INTO FLAC 
RELATIVE ADORESS OF A 
EXIT IF A = @ 

A + A TO GIVE Awa 


STORE 2@#A INTO TEMP 


MPY BY 2 TO GET 4A CIMMED MONDE 
CONST 2,@ 


MPY BY C 
STORE 4wAwC IN TEMP2 

GET ADDRESS OF VARIABLE °B* 
LOAD B INTO FLAC 

MFY BY 8 TO GET Hee 

SUBTRACT GK AxwC 

BRANCH IF ONLY ONE ROOT 

Bawe = GwAwC «< Q 777 

TAKE SQRT OF FLAC 

SAVE SORT (Bae=g4uAnC) IN TEMPe 


ADO MINUS B 
DIVIDE BY 2A CIN TEMP1) 


ADDR OF "ROOT 1 = " MESSAGE 
SCALL PRINT SUBROUTINE 


ZERO THE FLAC CIMMEDIATE MODE) 
SFLOATING POINT ZERO 


- B 
=“SQRT(BwreaGuaxC) 


MIVIDE BY enA 


AUDK UF "ROCT 2@ = " 


VdOe5e UO4767 JSR PC,PRINT 


0B0N56 
WUb256 VUYbb6h AK RESTAR? BRANCH TO GO AGAIN 
VdCebe 104771 ROOTL: TRAP LOR*RELME - ZERO THE FLAC 
QAA2be 177746 ewOKO ZERVe, : 
220264 174513 TRAF SBR+ARM} GET « B 
QUYe2b66 104725 TRAP DVR*RELM} OIV BY e2wA 
Buee7e vALeLA ewORD TEMPi-#, 
G@uGele Y1eTvS* MuV #MSG63,R53 "ROOT s " 
WGU5596 
WOVe7T6 OB4767 JSR PC,PRINT 
“WOCK12 
4UHS0e YWAG654 rn RESTAR 
OYUMS04 VBUABY IMAGE lot; WRITE IMAGINARY ROOTS MESSAGE 
00U2S06 CAareua" ew ORI) MSGaf ADDRESS OF MESSAGE BUFFER 
HAanSte ile eOYTE WRITE,1) WRITE TO SLOT 1 
@vosil Q01 
COHS1e 08065 BR RESTAR 
, PRINT SUBROUTINE 
QLO3L4 B10546 PRINTS MOV R5,e(SP)} SAVE REGS 
OUG316 410446 MOV R4,*(SP) 
OWO32U 210346 MGV R3,-(SP) 
wueSee2 010246 MOV Re, (SP) 
CUO3Se4 10146 MOV Ri,#(SP) 
VGK5e26 10046 MOV RU,-(SP) | 
260330 104773 TRAP STR+RELM} STORE THE FLAC 
C2053e 020146 ewORD TEMP3e, 
WUU334 w1e704 MOY #MSGLEN,R4} CHAR COUNT FOR MESSAGE 
COeo11 
Q0us4u 12703 MUV #0BUF %6,R3} AOOR OF OUTPUT FIELD 
CQ0774 
200344 112523 MLOOP: MOVE (R5) +, (R35) +3 MOV THE CHAR MESSAGE 
0U0546 005304 DEC R4 
200552 001375 BNE MLOOP 
Q44USSe Y1as46 MOV R3,=(SP)7? ADDR OF OUTPUT FIELD FOR CONV 
04554 012746 MUV #20,,°(SP)} LEN OFFIELD 
vegeed 
@UU360 012746 MUV #12,,°(SP)} DECIMAL PLACES 
@2081e 
O405604 025046 CLR (SP); P SCALE 
000366 016746 MUV TEMP342,"(SP)3 PUSH VALUE TO BE CONVERTEO 
00112 
@YU3572 U1b6746 MUV TEMP3,=(SP) 
ageide 
G40376 04767" JSR PC,$FCO; CALL CONVERSION ROUTINE IN FPMP 
veunEA 
CHO4Ge2 YAGGE4 LOT; CALL THE IOX PACKAGE 
C4C4R4 BOCTb6* ewORD OBUF 3 WRITE THE OUTPUT BUFFER 
2uv4eeo fie eDYTE WRITE, 17 TO SLOT 1 (KB) 
“wun4aal ee | 
OYH41e% WAAMBE4S WAITOSs IUT? CaLL 10x 
BVER41e VAG4dIA’ ewORD WATTO;S CREATE wAIT LOOP 
“venais aaa woYTE WAITR, 13 WATT FOR SLOT 1 (KR) 
“eras Ae4 
OWW416 B1L26Uue MuV (SP)+,RQ? RESTORE REGS 


OdOH42u 
0d042e 
WdBGed 
OYU4eb 
O4043u 
duns se 


OYU4 Su 
4uUU4 $6 
Odb44e 
@Ua4al 
Ouaaade 
Buvudaa 
Yuna4o 
Vangel 
44045¢ 
O4“ua4Se2 
200454 
BYud5S6 
420464 
“¢va46e 
240464 
UW6A466 
YVAR4TA 
600472 
BBUa7s 
QYANT6 
244580 
220582 
geesas 
440506 
avesiv 
W4e5ie 
ovyvsi3 
O4e514 
@0e@S15 
Y4uO516 
40517 
OUUdS26 
40521 
“uedsee 
“v4u0n5e3 
YEe524 
B4used 
O4AS26 
Gan5e7 
03453u 
240531 
“d453e 
¥uu533 
Cunss4 
040535 
040536 
Cvi0537 
OOUS4e 


widcbel 
wlebde 
412663 
ULeeud 
Wiebus 
UBt%eu7 


eOgnus 
UAGH4aA 
Wid 
Awe 
GZAUCUG 
wtudse 
Bad 
nas) 
“AaKeuT 
W200uA 
CAuace2 
4240488 
gacuaa 
2ALAUG 
“AEB 
BeaurdA 
BACHE 
VAaUEEA 
vAavUee 
BAKAKG 
CB4UG2 
A2GGAKE 
CaGve2 
CAUAGE 
g2aatee 
¥v15 
Ale 
ie4 
145 
123 
124 
O44 
117 
{46 
aoa 
126 
120 
115 
122 
Go4 
vel 
015 
Zia 
12e 
117 
117 
124 
“40 


MUV LOF)+,R1 
MuUY (SP)+,Re 
MOV (SP)+,R5 
MUY (SP)+,R4 
MUV (SP) +#,RS 
RTS PC} RETURN 
: ReAv SUBROUTINE 
READS JuT; CALL IOX FOR READ 
ew ORD bUFFR] ALDkK OF INPUT BUFFER 
eOYTE REAUDOP,U? REAL SLOT W (KB) 
wATTI8 Tuts CALL 10x 
ewORD WATTI; CREATE wAIT LOOP 
eoYIE wAITTR,@} WAIT FOR SLOT @ (KB) 
R1S FU . RETURN 
ENUs HALT FINISHED 
A3 eWURD 0,A 
Bs evORD G,0 
e 
Cc: et QhD 2,8 
TEMPIs ewORD 2,8 
TEMPe? ewORD G,A 
TEMP 32 24ORKD 0,0 
TITLES .wOkKD 16. 
eXORD G 
ewORD 18, 
eoVTe 15,142 
eASLIT SIEST OF FPMPI1L/ 
ebYle 15,12 


MSG15 eASLITI 


eOOT 1 3 /¢ 


40541 - 


00542 
00545 
@00544 
200545 
202546 
Q@60547 
B4H550 
00@551 
@40@55e 
40555 
Q@va554 
048555 
200556 
Q408557 
208560 
BONS61 
062562 
040565 
000564 
200565 
Q20566 
040567 
QO8570 
000571 
Q0057e 
040573 
00574 
000575 
O2Q576 
Q4as77 


40600 
200682 
200683 
240604 


O2A606 


Y2Q607 
BOA612 
@oMol1l 
buble 
040613 
CO0614 
LQG615 
O4A616 
G4G617 
B40620 
OUb6e1 
OU@bee 
OuH6e3 
@o06e4 
240625 
U0Kbe26 
OQH6e7 
C4063 
ObU631 


261 
040 
@75 
04a 
122 
117 
117 
124 
G40 
“6e 
040 
“rs 
240 
iee 
117 
117 
1e4 
A408 
@75 
042 
242 
240 
@4a@ 
048 
040 
@4a 
242 
040 
248 
040 
240 
022600 
@@203e 
282 
2QB 
O0aeS5e2 
@15 
@ie 
lee 
117 
117 
124 
123 
240 
101 
i2e 
1@5 
04@ 
iit 
115 
101 
107 
ii 
116 
101 
lee 


M3G28 


MSG3% 


MSGBLK2 


MSG48 


eASLIL 


eASLIT 


»ASCI] 


eo EVEN 
e WORD 
eBYTE 


WORD 
aBbYTE 


eASLII 


/kOOT 2 8 / 


vROOT BOs 


26, 
2,8 


26, 
15,12 


/ROOTS ARE IMAGINARY xk«/ 


OvbbE3e 
QbH6S3 
OuHoS4 
640635 
04636 
@uues? 


Coubde 
4G64e 
C6645 
OUUb64G 


082766 
O4UG7Te 
0771 
Qun7Te 
QUG774 
@Qu77T5 
QQU776 
Q4a777 
201¢00 
Oviens 
@G1¢ee 
@01005 
201004 


001031 
WO103e 
BQiA3ss 


A 

B 

C 
ILUUP 
LUK 
MSGBLK 
MSG2 
ObBUF 
READ 
RESET 
RO 

RS 
SBR 
STR 
TEMP3 
WAITI 
WRITE 
$RCI 


151 
“se 
O5e 
65e 
015 
¥ie 
UAn64A 


wAudieda 
“au 
Adu 
GAbELA 
UU2766 


CAAAdA 


BURFRS 


QBUF $ 


“008 
ava 


CARR4A 


242 
O42 
042 
249 
240 
04a 
042 
240 
24a 


001031 


215 
@i1e 
Ole 


2A00v8 


VBA4S4R 
24G460R 
@OC4O4R 
2BABSGR 
BQ0G71 

QUAS67R 
Q@GA545R 
Q20¢766R 
Q@U434R 
2voCGe 


EXOA0020 
EXO20005 


Beavis 
O20u73 
O@2aSa@eR 
Q@U@4ueR 
ABAWLe 


Rakwwe (6 


eOYTE 
et VON 


ek ORD 
eoYTE 


»wNOKD 
e=,780, 


eWORD 
2OYIE 


eWwORD 
eASLIT 


o=,7*20, 
eOYTE 


eENU 


ADR 
BEGIN 
UVR 
IMAG 
MLUOP 
MSbLLEN 
MSb5 
PC 
READUP 
RESTAR 


13,12 


i5,12e,1e 


BEGIN 


BoOUle 
UZAGAAR 
@éave5 
OCO3A04R 
QGAZ44R 
QGAoil 
CEASSo6R 


s4¢UR007 


OCGG11 
2O0Q@34R 


SZUOAVAL 
84000004 
=%CUAGN6 


HUA47GR 
OUA5AGR 
CUA41¥R 
YOA23AR 
CO1Q34R 


AAG1A@ 
AQAE4OR 
22a45eR 
ABACAL 
ACAReL 
ACASS4R 
@2260aR 
QvAZi4R 
ALAA 
QAB260R 


EXABOMAGe 
SAA08005 


220046 

@204T4R 
skeen G 
BAAGA4S 
wkekee G 


TEST OF FPMPL1 
Pet “he (AA Pe 
Pe AAAABAAAAA 
Lhe AANAAAAAAA 
2eAAAAABIAAY 


ROOT = = Le ADAAIGAAGA 


1265 3225 50 43 
126 599ABG0G00 


Be 25OAAAAAAAA 


Se 4299998283 


ROOTS ARE IMAGINARY *** 


3ek-01 2 D6ENAZ 4AE-OG1 
As 3098990119 


62 AANAAADAAG 
Ae AAAABAAGAA 


ROOT 1 


ul 


= %. 6995062795. 


ROOT 2 - 1943994921112 


i 


= 15 4 
De AAGAADADIBG 


15-¢99AGAADABG 
3 IBBABGBGAG 


ROOT 1 


il 
i 


-Ae 2154767666 


ROOT 2 


-2¢ 7845234871 


O° Lea 3675 
9. 8999090909 


As ABBAAAIAGA 


3e TSDABAIIAD 


PROGRAM OUTPUT 


Teletype input in three 


:10-character fields 


;program verification 
;Of input 


sresult. 


APPENDIX A 


BOOTSTRAP AND ABSOLUTE LOADERS 


A.1 THE BOOTSTRAP LOADER 


A.1l.1 Loading the Bootstrap Loader 


The Bootstrap Loader should be toggled into the highest core memory 


bank. 


xx7744 
xxX7746 
xx7750 
xx7752 
xx7754 
xx7756 
xx7760 
xxX7762 
XxX7764 
xX7766 
XX7770 
xXxX7772 
xx7774 
XX7776 


016701 
000026 
012702 
000352 
005211 
105711 
100376 
116162 
000002 
xx7400 
005267 
177756 
000765 


yyyyyy 


xX represents the highest available memory bank. 
first location of the loader would be one of the following, depending 


For 


example, 


the 


on memory size, and xx in all subsequent locations would be the same 
as the first. 
Location Memory Bank Memory Size 

017744 0 4K 

037744 1 8K 

057744 2 12K 

077744 3 16K 

117744 4 20K 

137744 5 24K 

157744 6 28K 
The contents of location xx7776 (yyyyyy) in the instruction column 
above should contain the device status register address of the 


papertape reader to be used when loading the bootstrap formatted tapes 
specified as follows: 


177560 
177550 


Teletype Paper Tape Reader 
High-speed Paper Tape Reader -- 


INITIALIZE 


(2) —+[ ser sk 90 sax7744 


[ PRESS LOAD ADDR 


Load 


SET SR TO 016701 | 


LIFT DEP 


SET SR TO NEXT 
INSTRUCTION 
LIFT DEP 


No ALL 
STRUCTIO 
DEPOSITED 


p. 


Yes 


LOAD 
OR VERIFY 
STRUCTIO 


Verify 


PRESS EXAM 


LIFT DEP 


SET SR 
TO CORRECT 
INSTRUCTION 


ALL 
INSTRUCTIONS 
VERIFIED 


FINISHED 


Figure A-1l Loading and Verifying the Bootstrap Loader 


A.1.2 Loading with the Bootstrap Loader 


{see figure E.l | 


Figure A-2. 


With Bootstrap 


Loader in Core 


Set ENABLE/HALT 
To HALT 


Place Bootstrap 
Tape in 
specified reader 


Set SR to xx7744 


Press LOAD ADDR 


Set ENABLE/HALT 
to ENABLE 


Press START 


Tape Reads in 
and stops 
At end of Data 


Data is in Core 


A.2 THE ABSOLUTE LOADER 


Code 351 must be 
~~ ~ “lover reader sensors 


A.2.1 Loading the Absolute Loader 


The Bootstrap Loader is used to load the Absolute 


(See 


Loading Bootstrap Tapes into Core 


through xx7743, and its starting address is xx7500. 


Loader into core. 
Figure A-2.) The Absolute Loader occupies 


locations xx7474 


A.2.2 Loading with the Absolute Loader 


When using the Absolute Loader, there are three types of loads 


available: normal, relocated to specific address, and continued 
relocation. 


Optional switch register settings for the three types of loads are 
listed below. 


Switch Register 
Type of Load Bits 1-14 Bit 0 


Normal (ignored ) 0 


Relocated - continue loading 0 1 
where left off 


Relocated = load in specified nnnnn 1 
area of core (specified address) 


INITIALIZE 


LOAD. ABS 
LOADER 


Yes ; 


es SET ENABLE/HALT TO HALT 


HSR=177550| (This is 
LSR=177560 | necessary 


XX is HIGH] Only if 
SET SR TO XX7776 TO SPECIFY READER ]‘/rst CORE using a 


reader 

different 
a from that 

the boot- 


strap loader.) 


SET SR TO XX7500. PRESS LOAD ADDR 


Relocate to ites 


OF LOAD 
? 


Normal 


SET BIT 0 OF SR 
SPECIFY ADDR IN 
BITS 1-14 


CLEAR BIT 0 OF SR 


Specific 


mee Continuing Relocation 


SET BIT 0 OF SR, CLEAR BITS 1-14 


Yes 
Sr> SET ENABLE/HALT TO ENABLE 


No PRESS START 
PRESS CONTINUE 
NO | |RELOAD LOADER S 


(2) 


2D 
No 
~ ~°S[ PLACE NEXT TAPE 
IN READER 
No 


REMOVE TAPE 


Figure A-3 Loading with the Absolute Loader 


A=5 


APPENDIX B 


USING THE PAL-11S ASSEMBLER 


Run the assembler according to the directions in Section B.1l. If 
another program is being assembled along with FPMP-1l, it should be 
read before the FPMP-1l package. This other program must be followed 
by a .EOT instruction and must not define any FPMP-11 labels or 
conditional switches. After any user program being assembled with 
FPMP-1l1 has been read, the assembler prints EOF? and pauses. Place 
the switch setting tape previously created (refer to section 3.5.1.1) 
in the reader and type the RETURN key. At the end of this tape the 
assembler again prints EOF? Place the first source tape of the FPMP-11 
package in the reader and type the RETURN key. After this source tape 
has been read and the assembler prints EOF?, place the next source 
tape in sequence in the reader and type RETURN. Repeat this sequence 
until all source tapes have been read. When the last tape has been 
read, the assembler proceeds to Pass 2. All.of the tapes must be read 
again using the same procedure as above. The assembler produces’ the 
FPMP-11 object module on the binary output device specified in the 
initial assembler dialogue. 


B.1 ASSEMBLER OPERATING PROCEDURES 


Loading: Use Absolute Loader. The start address of 


the Loader must be in the console switches. 
Storage Requirements: PAL-11S uses 8K memory. 
Starting: Immediately upon loading, PAL-11S is in 


control and initiates dialogue. 


Initial Dialogue: 


Printout Inquiry 
*S What is the input device of the source symbolic tape? 
*B. What is the output device of the binary object tape? 
*L What is the output device of the assembly listing? 
*T What is the output device of the symbol table? 


Each of these questions may be answered by any one of the following 
characters: 


Character Answer Indicated 


T Teleprinter keyboard 

L Low-speed reader or punch 
H High-speed reader or punch 
P Line Printer 


Each of these answers may be followed by the other’ characters 
indicating options: 


Option Typed Function to be performed 
/1 on pass 1 
/2 on pass 2 
/3 on pass 3 
/E errors to be listed on the Teleprinter on the same pass 


(meaningful only for *B or *L). 


Each answer is terminated by typing the RETURN key. Answering with a 
RETURN alone deletes the function. 


Dialogue During Assembly: 


Printout Response 

EOF ? Place next tape in reader and type RETURN. A .END 
statement may be forced by typing E followed by 
RETURN. 

END ? Start next pass by placing first tape in reader and 


typing RETURN. 


EOM 


Ae 


If the end-of-medium is on the listing device, the 
device may be readied and the assembly may be 
continued by typing RETURN. 


If the end-of-medium is on the binary device, the 
assembler will discontinue the assembly and restart 
itself. 

Restarting: 

Type CTRL/P. The initial dialogue will be started again. 

For more detailed information on the PAL-11S Assembler, refer to the 


PDP-11 PAL-11S Assembler and LINK-11S Linker Programmer's Manual 
(DEC-11-YRWB-D). 


B.2 ASSEMBLER ERROR CODES 


Error Code 


A 


Meaning 
Addressing error. An address within the 
instruction is ‘incorrect. . Also includes 


relocation errors. 


Bounding error. Instructions or word data are 
being assembled at an odd address in memory. 


Doubly-defined symbol referenced. Reference was 
made to a symbol which is defined more than once. 


Illegal character detected. Illegal characters 
which are also non-printing are replaced by a ? on 
the listing. 


Line buffer overflow. All extra characters beyond 
72 are ignored. 


Multiple definition of a label. A label was 
encountered which was equivalent (in the first six 
characters) to a previously encountered label. 


Number containing an 8 or 9 was not terminated by 
a decimal point. 

Phase error. A label's definition or value varies 
from one pass to another. 


Questionable syntax. There are missing arguments 
or the instruction scan was not completed, or a 
carriage return was not followed by a linefeed or 
form feed. 


Register-type error. An invalid use of or 
reference to a register has been made. 


Symbol table overflow. When the quantity of 
user-defined symbols exceeds the allocated space 
available in the user's symbol table, the 
assembler outputs the current source line with the 
S error code, then returns to the command. string 
interpreter to await the next command string to be 
typed. 


Truncation error. More than the allotted number 
of bits were input so the leftmost bits were 
truncated. T error does not occur for the result 
of an expression. 


Undefined symbol. An undefined symbol was entered 
during the evaluation of an expression. Relative 
to the expression, the undefined symbol is 
assigned a value of zero. 


APPENDIX C 


USING LINK-11S 


C.1 LOADING AND COMMAND STRING 


The Linker is loaded by the Absolute Loader and is self-starting. It 
uses a simple command dialogue which allows the object module, load 
module and load map devices to be specified. During pass 1 and _ pass 
2, the Linker asks for each object module individually. 


For illustration purposes, the non-printing characters carriage 
return, line feed and space are represented as <CR>, <LF> and <SPACE>. 


Operation begins by the linker typing its name and version. This is 
followed by the input option printed as *I<SPACE>. The responses are: 


<CR> Read object module from HSR. 
H<CR> Read object module from HSR. 
L<CR> Read object module from LSR. 


The input option is followed by the output option *O<SPACE>. The 
responses are: 


<CR> Punch load module on HSP. 
H<CR> Punch load module on HSP, 
L<CR> Punch load module on LSP. 


LINK-11 asks if a load map is desired by typing *M<SPACE>. The legal 
responses are <CR> for no map, T<CR> or H<CR> or P<CR> for a map on 
the ‘teleprinter, high-speed punch, or line printer, respectively. 


The next two options concern the placement of the relocated object 
program in memory. The standard version of the Linker assumes it is 
linking for an 8K machine. It relocates the program such that it is 
as high as_ possible in 8K but leaves room for the Absolute and Boot 
Loaders. (These assumed values may be changed by altering parameters 
HGHMEM (highest legal memory address +1) and ALODSZ (number of bytes 
allocated for Absolute Loader and Boot Loader) and reassembling the 
linker, ) The *T and *B options control the relocation of a program, 
After the option *T<SPACE> is printed, respond as follows: 


<CR> Relocate so that program is up against the current 
top of memory. If the top has not been changed, 
then the top is the assembled-in top 
(HGHMEM=ALODSZ). The standard assumption is 


16384.-112.=16272 (37460.). 


n<CR> n is an octal number (unsigned) which defines a 
new top address. 


If a new top is specified, the *B option is suppressed. 
After the option *B<SPACE> is printed respond as follows: 
<CR> Use current top of memory. 


n<CR> n is an unsigned octal number which defines’ the 
bottom address of the program. That is, a new top 
of memory is calculated so that the bottom of the 
program corresponds with n. 


Once a top of memory has been calculated (by *T or *B), that value is 
used until it is changed. 


LINK-1l1l indicates the start of pass one by printing PASS 1. The input 
is requested by the Linker, one tape at a time by printing *<SPACE>. 
The legal responses are: 


<CR> Read a tape and request more input. 


U<CR> List all undefined globals on the teleprinter and 
request more input. 


E<CR> End of input. If there are undefined globals, 
list them on the teleprinter and request more 
input. Otherwise print the load map if requested, 
and enter pass 2. 


C< CR> End of input. Assign 0 to any undefined globals, 
print the load map (if requested), and enter pass 
2. 


The Linker indicates the start of pass 2 by printing PASS 2 and 
requests each input tape as in pass l. 


A <CR> is the only useful response to an asterisk (*) on pass 2. The 
modules must be read on pass 2 in the same order as pass 1. When the 
last module has been read, the Linker automatically finishes the load 
module and restarts itself. 


Leader and trailer are punched on the load module. 


If the low-speed punch (LSP) is being used for the load module output, 
it should be turned on before pass 2 begins, i.e., turn it on before 
typing E<CR> or C<CR>. The echo of these characters (and the _ load 
map) if printed on the Teletype are punched on the load module but may 
be easily removed since leader is punched on the load module. The LSP 
can also be turned on while leader is being punched (after the linker 
has typed PASS 2) to keep the load map, etc., from being punched onto 
the tape. 


Ces 


NOTE 


On all command string options, except for *T and 
*B, the linker examines only the last character 
typed preceding the carriage return. Thus, 


ABCDEFGH <CR> 


is equivalent to H<CR>. 
C.2 ERROR PROCEDURE AND MESSAGES 


C.2.1 Restarting 


CTRL/P is used for two purposes by LINK11-S. If a cCTRL/P is’ typed 
while a load map is being printed, the load map is aborted and the 
Linker continues. CTRL/P typed at any other time causes the Linker to 
restart itself. 


C.2.2 Non-Fatal Errors 


Message Explanation 


?MODULE NAME xxxxxx NOT UNIQUE 
Non-unique object module name - 
this error is detected during pass 
1 and results in an error message 
and the module is rejected. The 
Linker will then ask for more 
input. 


?MAP. DEVICE EOM. 
TYPE <CR> TO CONTINUE Load map device EOM - this’ error 
allows the user an option to fix 
the device and continue or abort 
the map listing. Any response, 
terminated by <CR> or <LF> causes 
the Linker to continue. A CTRL/P 
causes the map be to aborted. 


Message 


?PBYTE RELOC ERROR AT ABS ADDRESS xxxxxx. 


?LOAD xXXXXXxX NEXT 


?XXXXXX MULTIPLY DEFINED BY MODULE 


C.2.3 Fatal Errors 


Explanation 
A byte relocation error - the 
Linker tries to relocate and link 
byte quantities. However, 
relocation usually fails and 
linking may fail. Failure is 


defined as the high byte of the 
relocated value (or the linked 
value) not being all zero. In such 
a case, the value is truncated to 8 
bits. The Linker automatically 
continues. 


If the object modules are not’ read 
in the same order on pass 2 as pass 
1, the Linker indicates which 
module should be loaded next by 
typing this message and asking for 
more input. 


XXXXXXe 

Multiply-defined globals were 
discovered, during pass l. The 
second definition is ignored and 
the Linker continues. 


The Linker restarts after any of the following: 


Message 


Explanations 


?SYMBOL TABLE OVERFLOW - MODULE xxxxxx, SYMBOL xxxxxx 


?SYSTEM ERROR xx 


Symbol Table overflow. 


System Error. Where xx isan 
identifying number as follows: 


Number Meaning 
01 Unrecognized symbol 


table entry found. 


02 A relocation 
directory references 
a global name which 
cannot be found in 
the symbol table. 


Number Meaning 


03 A relocation 
directory contains a 
location counter . 
modification command 
which is not last. 


04 Object module does 
not start with a 
GSD. 

05 The first entry in 


the GSD is not the 
module -name. 


06 An RLD references a 
section name which 
cannot be found. 


07 The TRA 
specification 
references a 
nonexistent module 
name. 


08 The TRA 
specification 
references a 
non-existent section 
name. 


09 An internal jump 
table index is out 
of range. 


10 A checksum error 
occurred on the 
object module. 


11 An object module 
binary block is too 
big (more than 64 
words of data). 


12 A device error 
occurred on the load 
module output 
device. 


All system errors except for 
numbers 10 and 12 indicate a 
program failure either in the 
Linker or the program which 
generated the object module. Error 
05 can occur if a tape is read 
which is not an object module. 


C.2.4 Error Halts 
LINK-11 loads all of its unused TRAP vectors with the code: 
«WORD e+2,HALT 
so that if the TRAP occurs, the processor halts in the second word of 


the vector. The address of the halt, displayed in the console lights, 
therefore indicates the cause of the halt. 


Address of HALT (octal) Meaning 
12 Reserved instruction executed. 
16 Trace TRAP occurred. 
26 Power fail TRAP. 
32 EMT executed. 


A halt at address 40 indicates an IOXLPT detected error. RO 
(displayed in the console lights) contains an identfying code: 


Code in RO Meaning 

0 Illegal memory reference, SP 
overflow or illegal 
instruction. 

1 Illegal IOX command. 

2 Slot number out of range. 

3 Device number illegal. 

4 Referenced slot not INITed. 

5 Illegal data mode. 


IOXLPT also sets R1 as follows: 


If the error code is 0, Rl contains the PC at the time of the 
error. 


If the error code is 1-5, Rl points to some element in the I0T 
argument list or to the instruction following the argument list, 
depending on whether IOXLPT has finished decoding all the arguments 
when it detects the error. 


APPENDIX D 


SUMMARY OF 
FPMP-11 ROUTINES 


This appendix lists all the global entry points of FPMP-11 and 
provides a brief description of the purpose of each. Sections D.1 and 
D.2 are for reference when it is desired to call FPMP-11 routines 
directly (i.e., without the use of the TRAP handler). Entry names 
preceded by an octal number can be referenced via the TRAP handler. 
The number is the “routine number" referred to throughout this manual. 
If the number is enclosed in parentheses, the routine cannot be 
accessed by the present TRAP handler, but has been assigned a number 
for future use. 


Examples of the calling conventions are: 


POLISH MODE: . 


JSR R4,$POLSH senter Polish mode 
Ssubrl 3;call desired subroutines 
Ssubr2 
Ssubrn ;call last subroutine desired 
«WORD .+2 z;leave Polish mode. 
J5RR: ° 
JSR R5,subr ;call desired subroutine 
BR XX 
«WORD argl ;subroutine argument address 


«WORD argn z;last argument 
XX: oe ;return point 


JPC: ° 


push args onto stack 


JSR PC,subr 


D.1 OTS ROUTINES 


These are the routines taken from the FORTRAN operating time system. 


The codes used in the following 


S = Routine is included in 
package. 

D = Routine is included in 
package. 

SD = Routine is included in 


table are: 
the standard single precision (2-word) 
the standard double precision (4-word) 


both standard packages. 


Octal codes shown in parentheses are not yet implemented. 


OCTAL # OF 

NAME CODE PKG ARGU MODE 
SADD 14 D 2 Polish 
SADR 12 S 2 Polish 
AINT 26 Ss 1 J5RR 
ALOG 53 S 1 J5RR 
ALOG10 54 S az J5RR 
ATAN 42 rs) z J5SRR 


DESCRIPTION 


The double precision add routine. 
Adds the top stack item (4 words) 
to the second item (4 words) and 
leaves the four word sum in their 
place. 


The single precision add routine. 
Same as SADD except it uses 2 word 
numbers. 


Returns sign of argument * greatest 
real integer = absolute value of 
the argument in RO,R1l. 


Calculates natural logarithm of its 
Single argument and returns a two 
word result in RO,R1. 


Same as ALOG, except calculates 
base-10 logarithm, 


Returns the arctangent of its 
argument in RO,R1. 


OCTAL # OF 


NAME CODE PKG ARGU MODE DESCRIPTION 
ATAN2 (43) FS) 2 J5RR Returns ARCTAN(ARG1/ARG2) in RO,R1. 
$CMD 16 D 2 Polish Compares top 4 word items on the 


stack, flushes the two items, and 
returns the following condition 
codes: 

4(SP) @SP N=1,2Z=0 

4(SP) = @SP N=0,2Z=1 

4(SP) @SP N=0,2=0 


$CMR 17 Ss 2 Polish Same as $CMD except it is for 2 
word arguments. 


Cos 37 iS) J5RR Single precision version of DCOS. 


DATAN 44 D J5RR Double precision version of ATAN. 


DATAN2 (45) D J5RR Double precision version of ATAN2. 


KF NN FE 


DBLE (34) J5RR Returns in RO-R3 the double 
precision equivalent of the single 


precision (two word) argument. 


SDCI (57) SD 4 JPC ASCII to double conversion. 
Calling sequence: 

Push address of start of ASCII 
field. 
Push length of ASCII field in 
bytes. 
Push format scale D (from W.D) 
position of assumed decimal 
point (see FORTRAN manual). 
Push P format scale (see 
FORTRAN manual). 
JSR PC,S$DCI. 


Returns 4 word result on top of 
stack. 


$SDCO (61) SD 5 JPC Double precision to ASCII 
conversion. Calling sequence: 

Push address of start of ASCII 
field. 
Push length in bytes of ASCII 
field (W part of W.D) 
Push D part of W.D (position of 
decimal point). 
Push P scale. 
Push 4 word value to be convert- 
ed, lowest order word first. 
JSR PC,$DCO. 


NAME 


DCOS 


DEXP 


SDI 
SDINT 


DLOG 
DLOG10 


SDR 
DSIN 


DSQRT 


SDVD 


; SDVI 


SDVR 


OCTAL 


CODE 


41 


52 


(11) 


(76) 


55 


56 


(6) 


40 


47 


23 


(24) 


25 


# OF 


PKG ARGU 
D 1 
D 1 
SD 
D 1 
D 1 
D L 
1 
D ae 
D 1 
D 2 
2 
s 2 


MODE 


J5RR 


Polish 
Polish 


J5RR 
J5RR 


Polish 
J5RR 


J5RR 


Polish 


Polish 


Polish 


DESCRIPTION 


Calculates the cosine of its double 
precision argument and returns the 
double precision result in RO-R3. 


Calculates the exponential of its 
double precision argument, and 
returns the double precision result 
in RO-R3. 


Converts double precision number on 
the top of the stack to integer. 
Leaves result on stack. 


OTS internal function to find the 


integer part of a double precision 
number. 

Double precision (4 word) version 
of ALOG. 

Double precision (4 word) version 


of ALOGILO. 


Replaces the double precision item 
at the top of the stack with its 
two word, rounded form. 


Calculates the sine of its double 
precision arg. and returns’ the 
double precision result in RO-R3. 


its 
and returns 
result in 


Calculates the square root of 
double precision arg. 
the double precision 
RO-R3. 


The double precision division 
routine. Divides the second 4-word 
item on the stack by the top item 
and leaves the quotient in their 


place. 
The integer division routine. 
Calculates 2(SP)/@SP and returns 


the integer quotient on the top of 
the stack. 


The single precision division 
routine. Same as S$DVD, but for 2 
word floating point numbers. 


OCTAL # OF 
NAME CODE PKG ARGU MODE 
.  $ECO (62) SD 5  JPC 
EXP 51 S 1 J5RR 
$FCALL - Ss 
SFCO (64) SD 5  JPC 
FLOAT (32) 1 J5RR 
$GCO (63) .SD - 5  <gPC 
(65) 2  JPC 
(es 
| $ICO\ (67) 3. JPC 
IDINT (31) 1 J5RR 
$ID (5) SD 1 Polish 
IFIX J5RR 


(35) 1 


DESCRIPTION 
Single precision to ASCII 
conversion according to E format. 
Same calling sequence as SDCO 


except that a 2-word value is to be 
converted. 

Single precision version of DEXP. 
Returns result in RO,Rl. 


Internal OTS routine. 


Same as $ECO except uses F format 


conversion, 


Returns in  RO-Rl, ~~ the real 
equivalent of its integer argument. 


Same as SECO except uses G format 


conversion. 


ASCII to integer 
Calling sequence: 


conversion. 


Push address of start of ASCII 
field. 
Push length in bytes of ASCII 
field. 


JSR PC,SICI 

Returns with integer result on top 
of stack. 

Integer to ASCII conversion. 
Calling sequence: 

Push address of ASCII field. 
Push length in bytes of 
field. 

Push integer value to be converted. 
JSR PC,S$ICO 

Error will return with 
on. RO-R3 destroyed. 


ASCII 


C bit set 


Returns sign of arg * 
integer <= |arg| in RO. 
double precision. 


greatest 
Arg is 


Convert full word argument on the 
top of the stack to double 
precision and return result as top 
4-words of stack. 
Returns the truncated and fixed 
real argument in RO. 


NAME 


INT 


SINTR 


SIR 


SMLD 
SMLI 
SMLR 


$NGD 
SNGI 
SNGR 
— (socd 


$POLSH 


SPOPR3 


SPOPR4 


OCTAL 


CODE 


(30) 


(27) 


(4) 


22 


21 


(1) 


(2) 


(66) 


PKG 


SD 


SD 


SD 


SD 


SD 


# OF 


ARGU 


1 


MODE 


JSRR 


Polish 


Polish 


Polish 


Polish 


Polish 


Polish 


Polish 


Polish 


JPC 


JPC 


Polish 


Polish 


DESCRIPTION 


Same as IDINT for single precision 
args. 


Same function as AINT, but called 
in Polish mode with argument and 
returns result on the stack. 


Convert full word argument on _ the 
top of the stack to single 
precision and return result as_ top 
2-words of stack. 


Double precision multiply. 
Replaces the top two doubles on the 
stack with their product. 


Integer multiply. Replaces the top 
2 integers on the stack with their 
full word product. 


Single precision multiply. 
Replaces the top two singles on the 
stack with their product. 


Negate the double precision number 


on the top of the stack. 


Negate the integer on the top of 
the stack. 


Negate the single precision number 
on the top of the stack. 


ASCII to octal conversion. Same 
call as S$ICI. 


Octal to ASCII conversion. Same 
call as SICO. 


Called whenever it is desired to 
enter Polish mode from normal 
in-line code. It must be called 
via a JSR R4,$POLSH. 


Internal routine to pop 2-words 
from the stack and place them into 
RO,R1. 


Internal routine to pop 4-words 
from the stack and place them in 
RO-R3 e 


NAME 


SPOPR5 


SPSHR1 


$PSHR2 
SPSHR3 
$PSHR4 
$PSHR5 


$RCI 


SRD 


SRI 


SSBD 


SSBR 
SIN 


SNGL 


SQRT 


TANH 


(7) 


(10) 


15 


13 
36 


(33) 


46 
50 


# OF 


PKG ARGU MODE 


D 


SD 


SD 


SD 


SD 


SD 


sD 


SD 


Polish . 


Polish 


Polish 
Polish 
Polish 
Polish 


JPC 


Polish 


Polish 


Polish 


Polish 
J5RR 


J5RR 


J5RR 


J5SRR 


DESCRIPTION 


Internal routine 
from the stack 
registers RO-R3. 


to pop 4-words 
and place them in 


Internal routine to push the 
contents of RO onto the stack. 


Same as $PSHR1. 

Push RO,R1 onto stack. 
Push RO-R3 onto stack. 
Same as S$PSHR4. 
ASCII to single precision 
conversion, Same calling sequence 
as SDCI. Returns 2-word result on 
top of stack. 
Converts the single precision 
number on the top of the stack to 


double precision format. Leaves 
result on stack. 


Converts single precision number on 
the top of the stack to integer. 
Leaves result on stack. 


The double precision subtract 
routine. Subtracts the double 
precision number on the top of the 
stack from the second double 
precision number on the’ stack and 
leaves the result on the top of the 
stack in their place. 

Same as S$SBD but for 
precision. 


single 


Single precision version of DSIN. 


Rounds double precision argument to 
single precision. Returns result 
in RO, Rl. 


Single precision version of DSQRT. 
Single precision hyperbolic tangent 


function. Returns (EXP(2*ARG)=-1) / 
(EXP (2*ARG)+1) in RO,R1. 


D.2 NON-OTS ROUTINES 


These routines are written especially for FPMP-11 and should not be 
called directly by the user. 


OCTAL 
NAME CODE PKG DESCRIPTION 
—€ SERD - SD Internal error amie: 
_—-CSERRD 5 SD Similar to SERR. 
SLDR 71 s Load FLAC, single precision. 
$LDD 72 D Load FLAC, double precision. 
SSTR 73 Ss Store FLAC, single precision. 
SSTD 74 D Store FLAC, double precision. 
TRAPH - SD The TRAP handler routines and 


tables. 


D.3 ROUTINES ACCESSED VIA TRAP HANDLER 


The following is a table of the FPMP-11 routines which can be accessed 
via TRAPH, the trap handler. Each routine name (entry point) is 
preceded by its TRAP code number to be used to access it, and followed 
by a brief description of its operation when called via the TRAP 
handler. Those entries which are preceded by an asterisk (*) perform 
operations only on the FLAC, and address no operands. For example, a 
TRAP call to the single precision square root routine can be coded as 
follows: 


The net effect of the above TRAP instruction is to replace the 
contents of the FLAC with its square root and then set the condition 
codes to reflect the result. Note that since the FLAC is implicitly 
addressed in this instruction, the TRAP call supplies no other 
address. For such a TRAP call, the addressing mode bits (bits 6 and 7 
of the TRAP instruction) are ignored. 


All entries not marked by an asterisk require an operand when called. 

The operand is addressed in one of the 4 addressing modes explained in 

section 3.1.1. The addressing mode is specified in bit 6-7 of the 
’ TRAP instruction. 


OCTAL 


CODE 


14 


12 


26 


a3 


54 


42 


16 


17 
a7 
44 


52 


55 
56 
41 


("Operand" is the contents of the 


NAME 


$ADD 
SADR 
AINT 
ALOG 


ALOG10 


ATAN 


$CMD 


SCMR 
COS 
DATAN 


DEXP 


DLOG 
DLOG10 


DCOS 


location addressed in the TRAP 
DESCRIPTION 

Double precision addition routine. Adds 
operand to the FLAC. Assumes 4- word 
operand. 
Single precision addition routine. Adds 
operand to the FLAC. Assumes 2-word 
operand. 


Replaces contents of the FLAC by its integer 
part. SIGN(FLAC) * greatest integer <= 
|FLAC|. Assumes 2-word argument in FLAC. 


Replaces contents of the FLAC by its natural 
logarithm. Assumes 2-word argument in FLAC. 


Same as ALOG, except calculates base-10 log. 


Replaces contents of the FLAC by its 
arctangent. Assumes 2-word argument in 
FLAC. 


contents of the 
the following condition 


Compares operand to the 
FLAC, and returns 
codes. 
FLAC<operand, N= 
FLAC=operand, N= 
FLACsoperand, N= 
Assumes 4-word operan 


Ques 8 «8 
ro 


Same as SCMD, but for 2-word operands. 
Same as DCOS, but for 2-word argument. 
Same as ATAN, but for 4-word argument. 
Replaces the contents of the 


exponential. 
FLAC. 


FLAC by its 
Assumes 4-word argument in the 
Same as ALOG, but for 4-word argument. 

Same as ALOG10, but for 4-word argument. 
Replaces the contents of the 


cosine. Assumes 4 ~word 
FLAC .: 


FLAC by its 
argument in the 


23 


25 
51 
72 


71 


22 


21 
£5 


13 
36 
46 
73 


74 


50 


$DVD 


SDVR 
EXP 
SLDD 


SLDR 


MLD 


SMLR 


SSBD 


SSBR 
SIN 
SQRT 


SSTR 


$STD 


TANI 


DESCRIPTION 


Same as DCOS, but calculates sine instead of 
cosine, 


Replaces the contents of the FLAC by its 
square root. Assumes 4-word argument in the 
FLAC. 


Double precision division routine. Divides 
the FLAC by the operand and stores the 
result in the FLAC. Assumes 4-word 
operands. 

Same as $DVD, but for 2-word operands. 

Same as DEXP, but for 2-word argument. 


Same as $LDR, but assumes 4~word operand. 


Replaces the contents of the FLAC by the 
operand. Assumes 2-word operand. 


Double precision multiplication routine. 
Multiplies the contents of the FLAC by the 
operand and stores the result in the FLAC. 
Assumes 4-word operands. 


Same as $MLD, but for 2-word operands. 

The double precision subtraction routine. 
Subtracts the operand from the contents of 
the FLAC. Assumes a 4-word operand. 

Same as SSBD, but for 2-word operand. 

Same as DSIN, but for 2-word argument. 
Same as DSQRT, but for 2-word argument. 
Stores the contents of the FLAC into’ the 
operand location. The contents of the FLAC 


are unchanged. 


Same as $STR, but assumes 4-word operand 
location. 


Replaces the contents of the FLAC by its 
hyperbolic tangent. Assumes 2-word 
argument. 


APPENDIX E 
FPMP-11 SOURCE LISTING 


This source listing of FPMP-1l1 is included for documentation of the 
logic only. The sources provided to users do not have comments 
because of size restrictions. 


FPMP1{ FLUATING POINT & MATN PA MACRO VRUGa14 U7—SEPm72 11543 FAGE 1 


1 vonees SINGLERS 
2 wenees DOUBLER#1 
3 voovel CNDS784 
4 genus CNDS121 
5 vonvel CNDSI7e4 
6 yonwul CNUS2aR1 
7 vunval CNDS2Se1 
8 guevel CNDS24a1 
9 wuaans CNDS$2581 
1@ bees CNOS$2681 
11 yoaeed CNOS2984 
12 gogue CNOSS4R4 
13 a CNDS3684 
14 eEQOT 

15 


FPMP11 FLUATING POINT & MATH PA MACRU VRUGel4 U7mSEP=72 11843 PAGE § 


1 PPRQUUCT CODE VECmLLeNFPMAmwAwLA 

2 

3 COMPUTER PDPelt 

4 

5 PCUNPIGURATION PAPER TAPE CONFIGURATION IS MINIMUM 
6 } 8192 wORDS MEMORY 

7 

8 : PSUFTWARKE REQUIREMENTS PaLeliS (OR MACROUe)1) 

g j hkINK#{4S (OR LINKel{) 

1¢ 

ii PROGRAM NAME FPMPeii 

12 

13 PVERSION VERSION LEVEL 1 

i4 j PATCH LEVEL A 

15 

16 IDESCRKIPTION FLOATING POINT MATH PACKAGE 

17 } PLUS TRAP HANDLER 

te } (FLOATING POINT SUBROUTINES TAKEN FROM 
19 j VOSeii FORTRAN IVY UTS) 

28 

2i PAWTHOR E, PETERS (TRAP HANDLER & PACKAGE 
22 } INTEGRATION) 

23 

24 FOATE AUGUST, 1972 

25 

26 } COPYRIGHT 1972, VIGITAL EQUIPMENT CORP,, 


27 ’ MAYNARD, MASSACHUSETTS a1754 


FPMP11 FLOATING POANT & MATH PA MACRU VkOGn14 O7HSEP@72 114843 PAGE 4 


| geaveadt »CSECT 

2 
3 } CONDITIONALS TO GENERATE THE STANDARD PACKAGES, 
4 a lFOF SINGLE? SINGLE PRECISION PACKAGE? 
5 bdueoRt CNDS$2e1 }SADR,SSBR 

6 weedul CNDS381 'aLOG,ALOGLO 

7 wovoval CNDS4e1 FAINT 

8 woaveal CNOS68} PSCMR 

9 C0GUR1 CNUS{S88)4 PSOVR 

1@ yOusOl CNDS$2081 TEXP 

ii geevel CNOS3a81 ISMLR 

12 oe@avel CNDS37814 }SIN,COS 

is GOGWal CNOSSSRL ITANH 

14 weasel CNDS39@1 PATAN,ATAN2 

15 eoavas CNOS4184 PSQrT 

16 woadeal CND94481 

17 “gavel CNDS4681 

18 eENOC 

19 

2u oIFOF VOUBLE PRECISION PACKAGE? 
21 doen) CNOS{i#1 #3a00,$S880 

22 QOA0Gi CNOS$S8i eSCmO 

23 eeaeaot CNDS$1O81 POLOG,DLOGIia 

24 eeaval CNOSiSal JDSIN,OCOS 

25 evavel CNDS{1 484 }OSQRT 

26 eeaval CNDS{i581 FOATANPDATAN2 

27 geoeal CNOS1681 PSDVD 

28 wsgeel CNDS$1981 PDEXP 

29 esavol CNOS2e81 PSMLO 

3e asgeual CNO$45a1 P$LOD 

31 - 989001 CNOS47B1 ¥$STO 

32 2ENDC 

33 

34 e lFOF SINGLE LDUUBLE 

35 ededel CNOSBR4 PSO0CI,SRCI 

36 ovedul CNDS9M1 IS$ECO,SFCO,$GC0,80C0 

37 edaveel CNUSSL84 ISNGI,SNGReSNGD 

36 weaves CNOS4281 ITRAPH 

39 2ENDC 


FPMP11 FLUATING POINT & MATH PA MACRU VROG0{4 O7eSEPw72 152343 PAGE 5 


1 a LF OF CNUSJBs TAN? 

2 aeaeul CNDS2ai PS aDR, $SBR 

3 Ouudel CND$1881 }SOVR 

4 CdAUI CNDS2081 FEXP 

5 vdavwvl CNDS2i81 PSPCALL 

6 vdovod CNUSS081 7 SMLR 

7 weeded CNUSS251 FSPSHRS 

8 eENOC 

9 

12 elFNUF FPU 

ii eo LFOF CNOSSICNUS2HICNDSS7 [CNDS$S9 
i2 gdevad CND$281 PS aOR, SSBR 

13 O2aedel CNOS$i1881 wSOVR 

14 “eeuvel CNUSSOF1 PSMLR 

15 a I FOF CNOSS75 SIN, CUS? 

16 vordul CND $48} FSINTR 

17 eENDC 

18 eENOC 

19 elFOF CNOSIBICNDSISICNDSISICNDSL9 
28 ' O8adal CNUSiai >$aD0,$S80 

ei veudel CNUS${L681 #$0V0 

22 vdeesl CND$2684 PSMLD 

23 iad 1 CNDS$S3581 PSPOPR4 

24 a LFOF CNUSL37 USIN,DOCOS? 

25 weadvel CNUS$1181 PSOINT 

26 aE NOC 

2? eENDC 

2a eo IFDF CNUSSICNUSIOS ALOG OR ULOG? 
29 woul CND§$272)1 P$IR, SID 

3a eENDC 

33 es lFOF CNOFISICNOS207 EXP CR DEXF?P 
$2 “eueeal CNUL27&E4 isIk,310 

33 “evdul Cxugsye) PERT, 4073 

34 ebNOC 

$5 elFoOF CNDELES USQKT? 

36 bul CNUEIL 8! iZ$ADD 

37 GYAKE I CNUDEL624 REOVD 

36 eENOC 

39 elk oF CNOSS); SORT? 

48 evvueal CNU S281 Pe ADR 

44 Voudal CND$1681 PSUVR 

42 eENDC 

43 eaENDC 

44 

45 eTFOF CNDRETF FLUAT? 

46 vageel CNUE27 51 Pe¥IR, aly 

47 Verde] CNDSSSF! PaPUPRS 

4d eG NDC 

49 olFOF CNOSELAICNUS267) IFIX, INT, OR IDINT? 
5d Y4BURI CNUSSSF1 P$RI,80] 

51 eENJQC 

52 elFOF CNOSSYF ATAN OF ATANG? 
54 wade CNUSS5F1 PPOPRS 


54 eE NOC 
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eTITLE THAPO? 
a TFOF CNOS42 
eGLOBL TRAPM,SERRA - 
, THE FPMPoeil TRAP HANDLER 
peceee R@axe 
aeneal Riexd 
veabue R2aX2 
veebes R3SKX3 
Bdgboa R4nXxa 
@ vegens RS*XS 
i veavus SPeXx6 | 
2 OUevO7 PC8X7 
3 , 
4 peat 442766 TRAPHE BIC Wi7,2(S8P)) CLEAR ALL WSER COND CODES 
209847 
e8gve2 
15 22906 “o8ed6 . CLR #(SP)! SPACE FOR ADOR MODE 
16 a@ule 019546 MOV R5,e(SP)/ SAVE THE REGISTERS 
17 @ebele@ w1ig446 MOV R4,e(fSP) 
18 wvuld otysab MOV R3,e(S8P) 
19 @vel6 vig2s6 MOV R2,e(SP) 
2@ a@o2e@ “viaido MOV Ri, (SP) 
21 aev22 vigea6 MOV RO,= (SP) 
22 g6udd 216603 MOV 2U(8F),R9) GET USER'S STATUS WORD 
eeoe2u 
23 uvadse 2427203 BIC H20,K3) CLEAR TeBIT FOR US 
veebee 
24 geese viegs37 MOV RS,@%177776) ESTABLISH AS CURRENT STATUS 
177776 
25 wvbo4e ai66ul MOV 16(8P),RE) GET USER'S PC 
' 989016 
26 g@o44 giniad MOV Ri,RS) COPY USER'S PC 
27 26046 w14ia4 MOV w(R4),R4s PICK UP TRAP INSTRUCTION 
28 gueSe aie4ud MOV R4,RS] COPY 
29 geu2 4427404 BIC #177700,R4) CALC TABLE INDEX 
1777280 
30 22096 aa6su4 ASL Ra} TIMES Tw 
34 36960 wi64a4 MOY THLS42(R4),R4) GET TABLE ENTRY 
, eepdseut 
32 G26Q04 201956 BEU EKRS42) ERROR! NU ENTRY IN TABLE 
35 g8u66 B1n4R2 MOY R4,R2) COPY TABLE ENTRY 
34 wOa70 042702 BIC #140000,82) CLEAR MODE BITS 
14gvee . 
35 wQe74 B6n702 ADD PC,R2) RELOCATE RUUTINE ADORESS 
36 BOR276 O32704 PTSa2t BIT 40000, R4} ADDRESSING REQUIRED 
e4aeau 
37 aeie2 ou{aya BEO NADS42) BRANCH IF NONE REQUIRED 
38 O14 106148 ROL RS) TEST OPERAND ALDRESS MODE 
39 we1¥6 iugi2e2 BPL PLMS49) BRANCH IF BIT 6 EQUALS @ 
40 vbilo Lesena BCC STKS42) BRANCH IF ®RB MODE 
ai ) RELATIVE MODE 
42 udil2 vivdav MOV R5S,ROy COPY USERIS PC 
43 aby{id w625a0 ADD (K5) +, RGF CALC ACTUAL OQPERAND ADDRESS 
446 w116 14966 UPLS4et MOV R5,1°(SP)5 UPDATE USER'S PC 
BOBe16 
45 a¥122 012705 STAS428 MOV MFACS42¢6,R5) ADURESS OF FLAC 


Beudaut 


TRAPB2 


46 
47 
468 
49 
5@ 
51 
$2 
53 
54 
55 
56 
57 
58 
59 


20126 
@6i1802 
avise2 
aida 
a@idse 
40142 
u¥i42 
wbi4da 
20346 
a615Q 
a015e 
ue15e 
281596 
ub169 


@b164 
06106 
98172 
av1i72 


g6174 


B22 
a@202 


av2e4 


g021y¥ 
a@2i2 
g0214 
o8216 
gb22e 
ab2e2 


88226 
aea2se 
weese2 
g6294 
e256 
Av24a 
@4242 
ge244 
y@246 
aev2se 
avec2 
ubese 


be262 
g8204 


40266 


wb272a 
06272 


5 O0274 


VO5704 
weeds 
easers 
yeseds 
065725 
w14546 
w1i4546 
014546 
014546 
Wes7o4 
veeso2 
v22eeu 
TILT, 
w627au 
veovie 
014046 
014846 
214046 
wiaea 


ST4$42! 


ST6942) 


OT25428 


gie7a4 
wegece! 
g0A112 
DOBSBATADNSESZE 
' 
0127458 
o¥e432! 
wi2s25 
012625 
2126025 
012625 
011700 
012705 
geu432! 
@05725 
ve@2410 
eBsers 
208728 
004011 
065725 
ee1va7 
208725 
oa,va5 
weswee 
005400 
053766 
177776 
aandea 
uvs7ee 
wi26ae 
012601 
012602 
@126035 
@12604 


RETS423 


NEGS428 
ChMFS42t 


PLS$4e2t 
Chl$4as 


TST 
BLT 
CLR 
CLR 
TST 
mov 
MOV 
MOV 
mov 
TST 
BLT 
CMP 
BR 

ADD 


MOV 
MOV 
MOV 
MOV 
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R4} 

§T43942) 
@RS) 

# (RS) 

(RS) +) 
@RS,* (SPI) 
=(R5),0( SP) 
#(R5),°(5F) 
#(R5),"(9P) 
R4) 

$T6842) 
(RO)*%, (CRO) +) 
OT2842 

#8, ,%8 


#(RO),«(5P)} 
#(RO),«(SP) 
= (RO), 0 (SP) 
=(R2),"#(9P) 


SINGLE OR DOUBLE? 
BRANCH IP DOUBLE 


CLEAR LAST 2 WORDS OF FLAC 


INCR R5 
PUST THE FLAC 


SINGLE OR DOUBLE? 
BRANCH IF DOUBLE 
INCR R@ BY 4 


PUSH QPERANO 


CALL ROUTINE IN POLISH MODE, 
THIS IS NOT A STANDARD POLISH CALL 
IN ORDER TO MEDUCE OVERHEAD, 


MOV 


JMP 


2 WORD 


NOw 
MOV 


MOV 
MOV 
MOV 
MOV 
MOV 
MOV 


TST 
BLT 
BGT 
TST 
BNE 
TST 
BNE 
TST 
BNE 
CLR 
NEG 
BIS 


TST 
MOV 
MOV 
MOV 
MOV 
MOV 


POP 


#ADRS42,N4) 


@R2} 
o*2) 


RESULT TU FLAC 


#FACS42,N57 


(SP)*, (R5)¢ 
(SP)*, (RI)¢ 
(3P)%, (KS) 
(SP) *, (RO) + 
erc, Ra} 

H#FACS42,45) 


(R5)*) 
NEGS42} 
PLS$42) 
(R5)* 
PLS8$42 
(R35) * 
PLSS42 
(R5)* 
PLS$40Q 
RO} 

RO} 


4177776020 (5P) 


RY) 

(9P)*,ROF 
(SP)+,R} 
(SP) *,R2 
(8P)+,RS 
(SP)*,R4 


ADDRESS OF RETURN ADDR 


CALL SUBROUTINE 
RETURN ADNRESS 


ADDR OF FLAC 


MAKE R@ POSITIVE 
ADOR OF PLAC 


TEST THE FLAC 
BRANCH IF PLAC MINUS 
BRANCH IF PLUS 


FLAG FLAG AS ZERO 
FLAC 18 NEG 
FSET USER'S CONvS 


SET COND CUDES 
RESTORE USER'S REGS 
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97 g42/6 #012605 MOV (SP)*,R5 

98 24304 2005726 TST (SP)%) TEST IF STACK MODE 

99 WdS@2 “1449 BEG RTI$42) NOs SO RETURN 

104 8364 100026 BPL RT2$42) BRANCH IF SINGLE PREC 

144 83406 012066 MOV (SP1%,6(5P)) POP USER! ARG, 
usnvus 

122 #8312 412665 MOV (SP)*,6(2F) 
vavbos 

103 8316 v22626 CMP (SP)*, (SP) + 

104 0320 B0e4e2 RTI SRETURN TO USER 

105 W822 0126006 RTZS428 MOV  (S8P)*,2(SP)7 POF TWO WORD ARG, 
“veabge 

126 4326 ¥126066 MOV (SP)*,2(5P) 
edaeee2 

147 8332 wonere RTAS423 RTI 

iu 

1u9g } ROUTINE TU MAKE JSRR CALLS 

L114 0584 B84912 NAUS42E JSR RS,e@K2} CALL SUBROVTINE 

111 4336 412745 MOV (PC)*,RS5I PICK UP AQDUR OF FLAC 

fie 3349 udedse! 2wORD rACS42) ARY ADDRESS (FLAC) 

1135 2342 eiuded MQY Ra, (K5) 4) STORE MESULT INTO FLAC 

114 0344 wlai25 MOV Ri, (RB)¢ 

119 6346 Blyeeo MOV R2,(K5)¢ 

116 44540 alyadses MOV R3,(R5)¢ 

117 8352 ada7Zze BR RETSAQ) GU DC STANVARD RETURN 

118 

119 } MORE MODE CHECKING 

120 0354 183418 PLMS42% BCC STMS$42]) BRANCH IF STACK MUDE 

tei } IMMEDIATE MOVE 

122 86356 wigruab MOV RS,KUF ADOR IS USER'S PC 

123 J$0¢ wds/u4 TST R4} SINGLE QR VOUBLE 

124 8362 adeuus BGE PLi$423 BRANCH IF SINGLE 

125 0364 62745 ADD #6, ,N5) UPDATE USERIS PC 
“eae1e@ 

126 6570 “veuose BR WPC$42 

127 0372 @22925 PLAS42:k UMP (R5)*, (RO) +3 UPDATE PC 

128 43/74 wagese BR UPC S42 

129 ‘ STACK MODE 

132 0376 BiBoee STMS$42t MOV SP,RO 

131 44¥u 4O2/u0 ADD 22,05 CALC ADOK UF ARG ON STACK 
WGasZe 

132 04204 UdSeo6 INC 14(SP)] FLAG STALK MODE 
gendia 

153 #410 0vds704 Ts1 Ra} SINGLE OR VOUBLE? 

134 “ale uve243 GE STK$423 BRANUM IF SINGLE 

1g5 2414 005466 NEG 14(SP)3 FLAG DOUBLE 
OaeEdt4 

10 v4da veuno4e BR STK342 

157 

138 ; ERRURE ROUTINE NUT AVAILABLE IN PalCKaAGe 

159 w42d2 vse ERRS42:t CL Roe SIUNAL TRAFPH ERWOR 

144 0424 uusde7 JSR R5,sORRAI Ri POINTS TO BAD TRAP INSTR 
v21d60 

144 w4sq uay774 Bre ERK$42;3 HARQ STOP 

142 

143 } FLUATING ACCUMULATOR 


144 ba4d2 VARMA FALSS2t ,wORD 2,0,0,8 
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04354 s@unue4 
0486 Yendeea 
H44un “¢BUKE0 


145 a lFOF CNUSO 
146 PCOMPARISUN FUDGE 
147 6442 wi2724 CMNS4et MOV SCARDZ2,N43 AUDR OF RETURN ADDR 
wagasat 
148 0446 vavle7 JMP $C MR 
av26646 
149 2492 vvnoS4ILans4det .wURD ave 
150 €494 455/766 bIS @#177776024(SF) FSET USER COND 
177776 
wevuded 
151 8462 ve20e26 UMP (SP1*, (SP) 43 POP STACK 
152 6464 ¢un077 BR CM1442 
153 eENOC 
154 
155 e LFOF CNOSS 
156 @466 wi27u4 CMUS$s23 MOV HCAD2X42,K4 
“WBG4761 
157 0472 weals7 JMP $CMv 
yu254a 
158 0476 veneds4iCavgaet ,wORD CMF $42 
{59 eENOC 
162 g4aeeau PMODE R 40000 
i161 1@u0uea UMODESIuMuRA 


162 ¥WS00 BUuRAY TBLS$4ei ,wORD 2e0,0,8,60,0,0,0 Fan? 
4502 “veneers 
544 ¢oAdGe2 
06806 Aeu0eu 
@5ig edauud 
Q5i2 advuvad 
0514 weaved 
516 “vburou 


163 4520 @uvevod 2H4QRD Bru pi@ell 

W522 weaveu 
164 eo lFOF CND$ée 
165 0524 041712 2wORD SAORPPTS$S2¢PMODE hi2 
166 @526 441726 2wOROD SSBR*=PTS424¢PMOVE ae 
167 eENDC 
168 eIFNDF CNDS2 
169 eWORD 0 Pléewl3 
17 eENDC 
171 a IFOF CNS] 
172 ¥USsa 14yuoun6 eWORD SADD™=PTS424PMODE*DMODE 744 
173 “5d2 1400¢2 2wORD SSAV"PTHIZPMODE*DMODE F419 
174 eENOC 
175 elFNDF CNOS1 
176 eWURD 0,8 1415 
177 eENQC . 
178 eo TFOF CNDS9 
179 536 1L4aus74 24ORD CMUS4S2erTS424PMODE*DMODE $16 
189 eENOC 
181: eITPNDF 8 CNUSO 
182 eAURD Y) 19 
183 2ENOC 


1a4 a LF OF CNOSO 
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185 8636 249544 eWORD CMRS42ePTS4Q2¢PM00E $47 
186 eENOC 

187 eIFNDF CNOS$O 

186 e WORD @ 447 
1389 eENDC 

490 4849 geadgae 2 WORD 1) #20 
i9f a LFOF CNOSSQ 

192 08842 @57864 aWORD SMLREPTS4S24PMODE bel 
193 eENDC 

194 eITFNOF CNOSSA 

195 . aWORD @Q hei 
196 eENOC 

197 . al FOF CNOS2s8 

1968 a644 156050 eWORD SMLD@®PTS42¢PMQDE*OMODE J22 
199 eENDC 

222 elFNDF CNDS28 

204 eWORD Q j2e 
202 eENOC 

223 e LFOF CNOSi6 

204 85846 1521142 2¥ORD SDVD®PTS42ePMODE*DMOQDE 28 
245 eENOC 

206 elPNDOF €NOS16 

207 eWORD @ 128 
206 aENOC 

209 8550 aeeauead aWORD Q 524 
21% o LF OF CNO8i8 

21411 8592 053162 eWORD SOVR®PTS426P MODE 325 
212 aENOC 

2i3 eIFNDOF CNDSi8 

214 eWORD @ #25 
215 ‘ aENOC 

216 a LFOF CNDS4 . 

217 8554 223026 eWORD AINT®PT&42 326 
2i8 2 ENDC 

219 eIPNOF CNOS4 

222 eWORD Q #26 
221 aENOC 

222 88596 weaver a WORD 2,0,40,0,0,8,2 327035 


@58q gbavee 
2562 g0eve0 
8564 Beever 
@566 weeadeu 
2579 woeeau 
@572 wdae002 


223 e LFOF CNOS$S7 

224 08746 817766 e WORD SIN@FPTS42,COSaPTS42 P3Oud7 
0576 017732 

225 eENDC 

226 elFNDF CNDSS7 

227 eo WORD 2,0 B96~37 

228 eENDC 

229 eo I FOF CNDSA3 

230 8600 107654 2» WORD DSIN@PTS42+0M0DE p40 

231 0602 187576 e WORD DCOS*PTS424DM00E p4k 

232 eENDC 

233 alFNDF CNDSI3 


234 eWORD 0,2 | }40n44 


THAPH2 


235 
236 
257 
238 
239 
2428 
241 
242 
243 
244 
245 
246 
247 
248 
249 
256 
251 
252 
253 
254 
255 
256 
257 
258 
259 
26@ 
261 
262 
268 
264 
265 
266 
267 
268 
269 
270 
274 
272 
273 
274 
275 
276 
277 
278 
279 
280 
284 
282 
265 
284 
285 
286 
287 
288: 
289 
2908 
291 


0604 


2606 


0610 


0612 


@6164 


@616 


8620 


0622 


0624 


0626 
0652 


0652 
0694 


v21062 


edudne 


111240 


BOARD 
021952 


112956 


B2usr6 


014456 


113612 


“02482 
002446 


106556 
1263552 


eENDC 
e LF OF 
2 WORD 
aENOC 
a TFNOF 
eWQRD 
et NOC 
eWURD 
a TF OF 
e WORD 
eENOC 
eo LFNOF 
e¥ORD 
eENOC 
2 WORD 
a LFOF 
ewORD 
eENOC 
e IFNOF 
awORD 
eENOC 
oe LFOF 
eWORD 
eENDC 
a LFNDF 
ae WORD 
eENOC 
a lFOF 
eWORD 
eENDC 
a IFNDF 
e WORD 
eENOC 
alPOF 
ewGRD 
aENQOC 
ae LFNDF 
a NORD 
eENOC 
oe LF OF 
eWORD 
eENOC 
eo LFNDF 
eWORD 
eENOC 
e LFOF 
a 4URD 
a WORD 
eENOC 
a IFNDF 
2 WORD 
eENDC 
a lFOF 
e WORD 
e wORQ 
aENOC 
eo LFNOF 
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CNOSS9 
ATAN™PTS$42 


CNDS$S9 
Vy 


iy 
CNDSI5 
DATANwePTSA24D0M0DE 


CNOS15 
8 


Q 
CNDS$44 
SURTPPTS42 


CNDS4,4 

a 

CNDS$14 
DSGRT=sPT34240M0DE 


CNDS14 
@ 


CNOSSB 
TANH®PTS$42 


CNDS$38 
) 


CNDS2o 
EXPaePT$42 


CND$2a 
@ 


CNDS49 
DEXP@PTS424+DM0DE 


CNDSI9 
7) 


CNOSS 
ALOG*PTS42 
ALOGIOeFTS$42 


CNoss 
0,8 


CNO$la 
DLOG*PTS4240M0DE 


DLOGLAePTS42¢DMODE 


CNDOS$ia@ 


bad 


146 


547 


547 


15% 


15@ 


54 


134 


152 


152 


ee) 
136 


53054 


55 
156 
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292 eNURD Oy@ 155056 
293 eENDC 
294 0686 vdadue WORD 69,0, 0,%,0,0,8,0,8 157=72 


0649 “vaneae 
W642 veuond 
0644 C0B0EG 
4646 Bonece 
0652 vondne 
W652 wvReae 
0654 vbuene 
0656 420008 
0600 “eAbae 


295 el FOF CNDS46 

296 4662 661746 e WORD SLOR*PTS424PMODE B71 
297 eENOC 

298 eIFNDF CNOS$44 

299 2 WORD "] 74 
Sau eENOC 

3Qk ol FOF CNOS4S5 

3@2 86664 161764 eWORD SLOD*@FPTS4S2ePMQDE*DOMODE 172 
es eENOC 

sud elFNDF CNOS45 

385 2 ¥ORD @ 172 
3@6 eENOC 

$07 e TFOF CNOS46 

308 4666 w6etau e4ORD SSTREPTS424PMODE 173 
3a9 eENQC 

912 eIFNDF CNOS46 

341i ewORD @ 173 
$12 eZNOCG 

313 e LFOF CNO847 

314 0678 162054 e WORD SSTD@PTS4S2+¢PMODE*DMODE 174 
315 eENDC 

316 eITFNDF CNDS47 

317 aWORD @ $74 
318 eENOC 

319 672 B8a020@ eWORD 0,0, 175077 


0674 620088 
@676 B@aead 


320 eENDOC 

321 aTITLE SADDOS 

322 a lTFOF CNDS4 

323 eGLOBL $ADD-S$SH0,SERR 

324 ) SADD wee THE DOUBLE PRECISION AUD ROUTINE 

$25 } $aD0 VAO5A 

326 } COPYRIGHT 1974,1972 DIGITAL EQUIPMENT CoRP,, MAYNARD, MA 
327 } AOD THE TOP STACK ITEM TO THE SECOND ITEM 

328 ' AND LEAVE TRE SUM IN THEIR PLACE. 

329 ’ $SB) wem THE DOUBLE PRECISION SUBTRACT ROUTINE 
$30 ; SUBTRACT THE TOP STACK YTEM FROM TRE SECOND ITEM 
334 } AND LEAVE THE DIFFERENCE IN PLaCe OF THEM 

332 A8H088 R@exa 

$338 Gavel Risxt 

334 adabue R2BX2 

335 guages RSBxXS 

336 g2egavga R4nxy4 


337 o@ubes RS5ex5 


SADD85 


338 
339 
348 
341 
342 
345 
344 
345 
346 
347 
348 
349 
3568 
351 
352 
353 
S54 


355 
356 
$57 
558 
359 
368 
$64 
362 
363 
364 
365 
366 
367 
368 


369 
378 
$71 
$72 
378 
$74 
375 
376 
977 
378 
379 
588 


981 
$82 


8762 


Q784 
0786 
G71 
@71\2 
4714 
6716 
@722 
0726 
b7$2 
07356 
2742 
0744 
0746 
o752 
0756 
0762 
6766 
0772 


0774 
6776 


2@ave6 
OdUvG7 
veahes 
weusie 
CCaa12 
GOaei14 
wepers 
G8Ab24 
vended 
uvgeed 
ooeend 
177544 
1773812 
177314 
177316 
290000 
“062716 
1000008 


010446 
@10846 
go5046 
geosege 
ueseos 
226366 
20014 
UO6166 
euaeie2 
606166 
weacte 
ee6is6 
weneae 
13566004 
eueea7 
BOL4ai 
106116 
026366 
wenega 
“26166 
gougv22 
w06166 
weonvees 
006166 
yOno1s 
156005 
eoees7 
“41ase 
126416 
Us6eEs 
yunene 


$5603 


SAUD 8 


SAUDI 
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SPaXx6 

PCR8%7 

AY{a6 

Biss, 

Ciete, 

Diel2. 

a2ui4, 

B2816, 

C2eis,. 

D2e22, 

SIGNS&¢, 

MQSL77504 

NORSI77312 

wSHEL773144 

ASM8i77316 

FORLH 

aod #igg0aa,@sP PNEGATE TOP STACK ITEM 
ae lFOF PPU 

2a WORD 47@014 $FsSETO 

eX ORD 172426 FFLDD (SP)*,Fa §GET OPERAND 
2wORD 172226 JFsAD0DD0 (SP) *,FQ pADOD 
eWQRD 174096 FFSTD F@,@(SP) ySUM TO STACK 
J MP @CR4)¢ 

eENDC 

eIFNDF FPU 

MOV R4,0e(SP) 

MOV RS,=(SP) 

CLR # (SP) ICLEAR SIGNS 

CLE R4 CLEAR EXPONENTS 

CLR RS 

ASL O1¢SP) %<JISHIFT OUT SIGN OF TOP ITEM 
ROL CicsP) 

ROL BiC(SP) 

ROL Ai (SP) SHIFT ad 

BISs AL*i CSP) »R4 GET EY 

BEG A1ZS$1 JUMP IF ZERO 

ROLG @SP GET $1 

ASL D2(8F) ISHIFT OUT SIGN OF SECOND ITEM 
ROL C2(sP) 

KOL B2 (SF) 

ROL A2(SP) ISAHIFT a2 

8138 AZ*1 (SP) ,R5 IGET E2 

BNE AZNS1 SJUMP IF NOT ¥ 

RQRKS @sP PRECONSTRUCT Aj 

ROR AL CSP) 


S$AD0DU5 


$85 


$88 
389 
398 
394 


$92 
393 


394 


399 
396 
397 
398 
399 
40v 
4a1 
402 
4as 
444 
4a8 
4u6 


407 


448 


4u9 


lade 
1a06 
ivie 


1016 


tue 


10s2 


1442 


1046 


1292 


1004 


1098 


1096 


1074 
1076 
11690 
1104 
1140 
1114 
1120 
1122 
1124 
lisa 
1154 
114¢ 


1144 


1192 


1164 


266066 
OWubdu 
CUKYH6 
wbudye 
2OH6OKE 
euaur4 
016666 
o0edn6 
2BRU16 
016666 
vEAALA 
eenbee 
016666 
vbeeie 
veavee 
416066 
wYev14 
yeyaed 
008726 
“UeR167 
4wes76 
166166 
YVeVerl 
112766 
veabeal 
Vdeus7 
112766 
“saedl 
BUG0O7 
164409 
ORT BB 
016008 
Yebd1s 
H16Sa4 
veev2d 
0166082 
bende2 
“¥16043 
vubaeed 
wOyse7 
vOea5e4 
16690 
wdaves 
WL6EH4 
VOAbLO 
w1iédone2 
O4ndie 
Vloouds 
ee@ueia 
¥16065 
VUBK16 
awubyo 
V16660 
“beabed 
“VbAdied 
016066 
woaved 


ALCELt 


A2Nsit 


ExAgls 


KOR 
ROR 
ROR 
MOV 
MOV 
MOV 
MOV 
TST 
JMP 


ROL@ 


MOVs 
MOQVB 


Sub 
BGT 
MOV 
MOY 
MOV 
MOV 
BR 

400 
MOV 
MOV 
MOV 
MOV 


MOV 
MOV 


M(jy 


MACHU VRO4"14 AZeSEPm72 LLtdd PALE 6 


Bi(SP) 
Ci (SP) 
O1 (SP) 


AL(SP),A2(SP) 


B1(SP),be2(3SP) 


CicsP),Ce (sp) 


Di CSP) ,02(SF) 


JFIRST ARG TO TOP OF STACK 


(SP) * FFLUSH SIGNS 


QUTS) DONE 
SIGNS#1 (SP) 


AL, Aeel (SP) 


ML, Alel (SP) 


IGET Se 


FINSERT NORMAL BIT 


PINSERT NORMAL BIT 


R4,R9 PRSBSEQ"EL, RABEL 
EXa$i PIUMP IF E2>EL 


A2(SP),k0 
B2(SP),R4 
C2(SP),R2 


D2(SP),R9 


pRUsA2 


pR1eB2 


SCK$3 %9GO CHECK SIGNS 
R5,R4 IRSaEQ@EL,M4nb2, bore} 


AL(SP),RO 
BiCSP),kL 
Ci(SF),K2 
Di (SP) ,RS 


A2(SP),A1 (SP) 


B2(SP),61(SP) 


C2c¢SsP),Ci(SP) 


PROmAI 


pRieBL 


SADDOD 


412 


4141 
412 
413 


414 
415 
416 
417 
418 
419 
42u 
421 
422 
423 
424 
425 
426 
427 


428 
429 


450 
| 
432 


43d 
434 


435 
4356 
437 
438 
439 
44u 
a4i 
442 
443 
444 
445 
446 


447 
448 
449g 
450 
4351 


a3e2. 


4353 
454 


1106 


4174 
1176 
1209 


1204 
1206 
l2l2 
1212 
1214 
1216 
122a 
1222 
12264 
1226 
{25a 
1252 
1204 
1296 


1242 
1244 


1292 
1294 
1202 


1264 
1206 


1272 


1274 
12/6 
1300 
1542 


13uad 


tole 
Lsle2 
1314 
1316 
L$eua 
1322 


1326 
Lgou 


“udgedie 
016066 
Yeov"e4 
“vats 
008916 
wésaus 
1266016 
viveol 
“01412 
evs4aas 
Zesove2 
“ssond 
eusoey 
“uv54sue 
VUsor) 
O45°590n 
“Sari 
“veds5oeu 
“gsane 
88765 
041467 
e227yu9 
177727 
VEOS4d1 
vil60Re 
voudas 
216041 
Y@adye 
0166a2 
“vbsdie 
vieoed 
Cui 4 
vba 
@22748 
177774 
W08442 


CUS04do 
605748 
1@uval 
@@5116 


v2e2799 
177764 
weesih 
¥invens 
wiglge 
Yinvad 
“14 oad 
o27us 
“ue@ad2o 
d1s60 
645726 


SCK$13 


ECMS§12% 


SFIsit 


SFRS1& 


SFisis 


MACKU VRU4"149 b7eSEPe/e2 


119149 PALE te 


V2C(SF),UL(SP) 


@SP FEXCHANGE SIGNS 
RS Felece 
SIGNS441(5P),@SP FCUMPARE SIGNS 


ECK$) FTHEYIRE THE SAME, CHECK EXPONENT 
RS SNEGATE OPERAND 


RS bCHECK EXPUNENTS 
SFO) JUMP IF ELSE? 
#e570,RS PIS THERE ANY POINT IN SHIFTING? 


SFRS$]) YES 
AL(SP),RY INU, ANSWER ITS YUPERAND 


BicsP),k1 falTr THE LARGER EXPONENT 
Ci(Shj,ke 
Di(SP),ksS 


KUuUdl 
Hed se RS CHECK # OF BITS TU SHIFT 


Sree pl JUMP IF NOT MORE THAN [1/72 wORD 
MUL OAV 
= (SP) FSET YP EXTENSION BITS 


Rid FACCORUIANG TO HI UH ORVER FRACTION 
Skisl JUMP IF « 

oP 

MULOdV 

RU 


VU6749— FFSEX = (SP) FEXTENU SIGN 
Blb6e,ko 


$106] iJUMP ITF NOT MORE [THAN a WORD TO SHIFT 
R2,n0 POHTF IT &2 wURD AT A TIME 

Rhye 

RU,szrR1 

@SP,NA fFusSk EXTENSION 

@logrerkS @40JUST EXPONENT 


Sriti iTryY AGAIN 
(Skier PRE ORP EXTENST EN 


$a0D85 


455 13592 eve4su 


456 
457 
4358 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
463 


481 
482 


483 
464 
485 
486 
487 
485 
489 
490 
491 
492 
493 
494 
495 
496 
497 
496 
499 
50¢é 
584 
502 
583 
504 
525 
506 
507 
5@8 
5a9 


1354 


1340 
1342 


1346 
139¢ 
1352 
i394 
1356 
1369 
1362 
1364 
1366 
137¢ 
1372 
1374 


022725 
177776 
283416 
062795 
peeaeze 
B065a5 
e06ie2 
oe6iel 
Cb6180 
006116 
085505 
BO3974 
vie2zas 
wiaine 
o1e8eeas 
012602 
000407 


“Syosin 


SyOsis 


SL 95813 


SiOsit 


BR 

e TFOF 
CMP 
BLE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
MOV 
MOV 
TST 
BIS 
MOY 
MOV 
MOV 
MOV 
MQV 
MOV 
BR 
eENOC 
e TFNDF 
CMP 


BLE 
AOD 


ASL 
ROL 
ROL 
ROL 
ROL 
DEC 
BGT 
MOV 
MOV 
MOV 
MOV 
BR 
eENDC 
sl OF 
CMP 
BLE 
MOV 
MOV 
MOV 
eWORD 
MOV 
e WORD 
MOV 
MOV 
MOV 
e WORD 
MOV 


MACRO VR@4"14 O7eSEPe72 11249 PAGE 64% 


SFOSi PSHIFYT IS ALL DONE 

EAE 

#e3,R5 

S8A8) PJUMP IF NOT MORE THAN 3 TO SHIFT 
R4,eSP {fSAVE EXP 

aMQ,K4 FROINT TO MOQ 

R3,@R4 FLOW ORDER PARTS TO AC,MO 


R2,a(R4) 

R5,@A. SH pSHIFT THEM 

(R49 *,R2 JSAVE PARTIAL R2 

@R4,R3 PLOWEST ORVER IS DONE 

@R4 

Ri,elR4) JSET UP NEXT- HIGHER WORD 
R5,@*L SH PANO SHIFT IT 


(R4)¢ PPOINT TO MQ 

@R4,K2 JPFINISH R2 

Ri, @R4 

RB,»e(R4) $00 HIGH ORDER NOW 
R5,@ASH 

(R4)*%,RO tHIGH ORDER DONE 
@R4, RG 

(SP)*,R4 

SFOS! 


EAEaMULOLY 
#=6,7R5 


s8agi RJUMP ITF NOT MORE THAN 4/2 WORD TO GO 
#16 0RS ISHIFT LEFT 160x 


RS ISHIFT LEFT 
R2 

Ri 

R@ 

esp 

RS COUNT LOOP 
SL8S$1i 

R2,R8 

R1,Re 

R@,RI 

(SP)%,RO 

SFDSi FSHIFY DONE 


MULDJV 

#=3,K5 JUMP IF NOT MORE THAN 3 TO SHIFT 
S8AS1 

R4,e@eSP ISAVE EXP AND SHIF] COUNT 


R5,7 (SP) 

R1LeR4 SAVE Ry 

@73005 Jy ASHC R5,RO ISHIFT HIGH ORDE 
R2,R9 ISAVE Re 

Q@73416 Fy ASHC @SP,R4 SHIFT IT 

R2,R4 


R5,R2 yR2 DONE 

R3,R9 SET UP LOW ORDER 

273426 FP ASHC (SP) *,R4 300 LOw 
R5,RS 


$AD005 


518 
514 
Si2 
513 
544 
545 
516 
517 
518 
519 
52a 


521 
522 
523 
524 


525 
526 
527 


528 
529 


5308 


S531 
S$2 


538 
534 
535 
536 
537 
538 
539 
54¢@ 
541 
542 
543 
544 
545 
546 
547 
548 
549 
556 
S51 
552 
3535 


554 


553° 


356 


1376 
i4¢¢@ 
i462 
1404 
1486 
1414 
1412 
1414 


1420 
1422 
{424 
1426 


1452 
1454 
1456 


1442 
1444 


14590 


1454 
1496 


1662 
1404 
1456 
14740 
1472 
1474 
1476 
15¢¢ 
1502 
1504 
1506 
i5iv 
1512 
1514 
1516 
1520 
1522 
1524 
1526 
159% 
1Sé2 


1596 
1542 


1546 


085726 
026200 
226801 
Vbb0Ge 
“ea6vas 
weas2as 
042772 
ws66eons 
goeabia 
wesone2 
065904 
065508 
266692 
vdeeie2 
C0556) 
685900 
0666a3 
veaei 
¥@55008 
266600 
2ouvas 
126616 
weeeai 
G@yees 
esate? 
“eB uad 
g@1425 
106200 
O460R1 
2u6dae2 
geeves 
yase2ad 
wegdad 
OW183S1 
15aé24 
006026 
¢gdebea 
ee6uerl 
VG60e2 
“vB6vaS 
8550s 
005902 
BO5901 
vasa 
122417 
104416 
019466 
euadie 
018166 
“49015 
wig26s 
eagved 
210566 
eeaes2e 


SeAgii 
SRBgit 


SFuSii 


NOUSIS 


NFLSLE 


MOV 
BR 
eENDC 
TST 
ASR 
ROR 
ROK 
ROR 
INC 
BLT 
40D 


ie 
ADC 
AvCc 
AOU 


ADC 
AoC 
ADD 


AOC 
AOD 


CMPB 


BNE 
BIT 


BEW 
ASK 
eR 
RQR 
KOR 
INC 
owAs 
BNE 
BISd 
ROK 
KOR 
ROR 
KOR 
ROR 
ADC 
AoC 
AoC 
AOC 
eVS 
BCS 
MOV 


MOV 


MOV 


MACRO VRUG"14 B7eSEP@72 11945 PALE 6 


(5P)%,R4 
SFuSi 


PRESTORE EXPONENT TQ RG 


(SP)* HPOP EXTENSION 
Rd PSHIFT RIGHT 
R4 

Re 

RS 

RS FCOUNT LOOP 
SKeS1 

Di CSF) ,kd JFURM THE SUM 
Re 

R4 

RO 

CiCSP),ke 


Ri 
RO 
Bi(SP),RI 


RY 
A1L(SP),kdé 


SIGNS+1(SP),@SP FCHECK FUR UNEQUAL SIGNS 


SUBS$I 
RY, #1000 


7GO CLEAN UP SUBTRACT 


NODS) PJUMP IF NO NORMAL BIT OVERFLOW 


Ra PINCREASE EXPONENT 

R4 PMQVE EXPONENT LEFT 

JUMP IF OVERFLOW 

FINSERT HIGH URDER FRACTION 
FINSERT SIGN 


R4 

OVRSI 
OvRSI 
R4,Agebe2 (SP) 


JUMP TF OVERFLOW UN RUUND 

STORE EXPONENT AND SIGN 
R1,8é40"2(SP) 
R2,CeeBw2 (SF) 


R3,0¢2e05"2 (SP) 


PINSERT LOW ORVER FRACTION 


SADDUS 


557 
558 
559 


560 
561 
562 
563 


564 
565 
566 
567 
568 
569 


57% 
571 
572 
573 
574 
575 
576 
577 
578 
579 
58u 
58} 
382 
583 
584 
585 
5386 
587 
588 
589 
59¢@ 
594 
592 
598 
594 
595 
596 
597 
598 
599 
608 
621 
682 
6u3 
644 
685 
606 
607 
648 
6ay 
618 


1552 
1634 
1596 


1562 


1564 
1566 


1572 
1574 
1575 
1576 
1602 
1602 


1606 
1616 
1614 
1612 
1614 
1616 
162¢@ 
1622 
1624 
1626 


1649 
1632 
1604 
1656 
1649 
1642 
1644 
1646 
1659 
1652 
1654 
1696 
1659 
1662 
1694 
1666 


12685 
W12004 
262726 
veudie 
Mavisd 


405726 
904567 
genei14 
wo767 

ous 

oat 
205704 
603836 
0064567 
020208 
weasel 

4a5 

eat 
Q25000 
eesdal 
“ue@suge 
2eseeas 
gases 
eesuga 
e0a72a5 


ves7av 
oB3015 
01425 
eus4as 
0eshae2 
Ue55a1 
oos55ae 
2285402 
oesSei 
oussaa 
4e54a1 
025500 
Qeasis 
4¥54ue 
24494 


QutTgsis 


} 
OVP Sit 
OVKgi3 


UTSg$is 


UNP $18 


UNUSLE 
ZERSi8 


} 
SUBSL3 


BT9Si8 


MOV 
MOV 
ADD 


JMP 


TST 
JSR 


GR 
eBYTe 


oBYTE 


TST 
BGT 
JSR 


BR 
eBYTE 
eBYTE 
CLA 
CLR 
CLR 
CLR 
CLR 
CLR 
BR 


TST 
BGT 
BEG 
NEG 
ADC 
ADC 
Aoc 
NEG 
AOC 
Aoc 
NEG 
Adc 
Swag 
NEG 
BEQ 


oe lFOF 
BIT 
BNE 
MOV 
MOV 
MOV 
MOV 
CLR 
MOV 
Sub 
MOV 
MOV 
MOV 
MOV 


MACRU VRB4"14 B7"SEPH72 11549 PALE 6 


(SP)*,RS 
(SP)*,R4 
#8,,5P POP SECOND ARGUMENT 


@(R4)e FOONE, RETURN 


(SP)* JPOP SIGN 
R5,SGRR FERROR 3,4 


Ra ICHECK FOR UNDERFLOW. 
NODS) 
R5,SERR JERROR 35,1 


UNOS) 


Ri FUNDERFLOW,. TREAT AS Q 


ap PSEY SIGN PLUS 
NFLSi PFINISH OUT NORMALLY 


R@ IPCHECK HIGH ORDER RESULT FRACTION 
BT9Si PIF POSITIVE SIGN 1S OK 

ZTSs8i HCHECK FOR ZERO RESULT 

RS FGET ABSOLUTE VALUE 


eSP PEXCHANGE SIGNS 
RO 
ZT8$47 CHECK FOR ZERO RESULT 


EAE 

RO, #749 

B9ASS JUMP IF NOT MORE THAN 4 TO SHIFT 
R4,e(SP) SAVE EXP 

aMQ,K4 FROINT TQ MQ 

RL, @Rd fLOW ORDER FRACTION TO MQ 
RO,we(R4) PHIGH ORVER FRACTION TO AC 
@#NOR PNORMALIZE 

@MNOR, @ (OP) 9SAVE SCALE 

#6,@59P ICOMPENSATE FOR NORMAL BIT POSITION 
RL,@N4 IGET 2 HIGH ORDER PARTS 


ROY,a(R4) 
eSP,@#LSH PSMIFT THEM 
(R4)*,R@ pRU DONE 


SANDED 


611 
612 
613 
614 
615 
616 
617 
618 
619 
628 
621 
622 
6235 
624 
625 
626 


627 
628 
629 
638 
631 
632 
6335 
634 


635 
636 
637 


638 
639 
644 


644 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
637 
658 
659 
668 
661 
662 


1666 


1672 
1674 
1676 
1742 
1702 
17864 
1706 
1719 


1714 
1716 
1729 


1724 
1726 
1752 


1734 
1796 
1742 
1742 
1744 
1746 
175¢ 
1752 
1794 
1796 
1769 
1762 
1764 
1706 
1774 
1772 
1774 
17/6 
2evea 
env2 


290027 
evesaa 
@dpoal 
passya 
446503 
eee6ia2 
wvelet 
evelae 
000767 
162774 
yeovie 
“V5701 
eaivad 
162744 
gaae2a 
eig2ai 
001812 
162794 
gduvee 
VESTAS 
@41731 
150301 
20u0sa1 
eausas 
150804 
wesuus 
@du745 
e1aseve 
ve5vas 
weasel 
1541904 
1vsvel 
gvadsue 
yoaeel 
10502 
yoesus 
pousp2 
1usans 
veu7si 


BOAS13 


ZT9$i1 


2T2sit 
ZTisis 


MOV 
MOV 
CLR 
MOV 


MACRU VR dels B7eScPm7e L1idd PALE &F 


OR4,"{ FSAVE PARTIAL RY 
R2,@"4 JIGET NEXT 


e(R4) 

@SP,@#LSH PSHIFT IT 

(R4)¢,R} PFINISH RY 

Rd,e@K4 FIGET NEXT 

R2,o(R4) 

@SP,@HLSH PSAIFT IT 

(R4)*,Re PFINISH Re 

@r4,K3 FRE DONE 

(3P)%*,@SP ICOMPENSATE EXPONENT 
(3P)*,R4 PRESTORE IT TU &4 


NUDS4 ,JUMP IF NU UNDERFLOW 
UNF S$] 


R@,#900 FCHECK NORMAL BIT 


UTSei aJUMP IF FCUND 


R4 POECREASE EXPUNENT 
RS PLOUBLE FRACTION 
R2 

Ri 

Rd 


B9A$) JFTRY AGAIN 
#8,,%6 FREDUCE EXPONENT 


Ry 

ZTish JUMP IF ONLY ROBB 
HLG6, R44 

R2,Ri 


Z12$h JUMP IF R2 NOT @ 
#16 .9R4 


ZEHS1 JANSWER JS Q 
RS,R1 ‘#MOVE BYTES TU RO,RY 


RS PMAKE ALL OTHERS 2 


BT9S$) 1GO NORMALIZE 


R4 PMOVE ALL SYTES LEFT 


BT9S1 (GO NORMALIZE wHAT'S LEFT 


SAUR@4 MACRU VRO4GR14 B7HSERPe72 11945 PALE 7 


i eTITLE S$ADROA 
2 oe lFoF CNOS@ 
3 eGLOBL SADR? SSBR, SERR 
4 ] SADR wewe THE REAL ADD ROUTINE 
5 } SADR V@e4a 
6 } COPYRIGHT 19714, DIGITAL EQUIPMENT CORP,, MAYNARD, MASS, 
7 } REPLACE THE TWO JTEMS ON TOP OF THE STACK 
8 j wITH THEIR SUM, 
9 } SSBR esee THE REAL SUBTRACT ROUTINE 
10 ’ SUBTRACT THE TOP STACK ITEM FROM THE SECOND ITEM 
11 ' REPLACE THEM BOTA WITH THE OIFFERENCE, 
12 28ede0 RBsxe 
13 @ba0e1 . RUext 
14 eegee2 R28X2 
15 080803 R3SX3 
16 oeaea4s R4axa 
17 eoadeas RSaX5 
18 00g0e6 SP8Xx6 
19 200007 PCaX7 
22 G0a00R8 SIGNS&8@ 
2i oagva4d Aiad 
22 veeee6 Bis6 
23 BVeuiea Agus, 
24 gegei2 82910, 
25 177502 AC#17730@ 
26 177364 MQ0177304 
27 w77S12 NORS177312 
28 177346 ASHB177316 
29 2@eveea Fouaexa 
3o u2e04 962746 SSBRI ADD #100000, ¢SP CHANGE THE SIGN OF TOP ITEM 
' ~Ogeaa 
314 eo LFOF FRU 
32 SAURS e WORD 170004 <FFSETF 
33 a WORD 172426 JFILOF (8P)%,F@ JGET OPERAND 
34 eWORD 172026 JpADDF (8P)4,FQ paood 
35 ewORD 174046 fF STF F2,e(SP) s$UM TO STACK 
36 JMP @C(R4) 4 
37 eENDC 
38 alFNOF FRY 
39 o2030 10446 SADRE 8 MQV R4,e(SP) 
48 G2012 088046 CLR # (SP) ICLEAR SIGNS 
41 g2014 285802 CLR R2 CLEAR EXPONENTS 
42 02016 685003 CLR R3 
43 02020 206366 ASL BicsP) ISHIFT Bt 
pvogbve6 
44 62024 206166 ROL ALCSP) JSHIFT Al 
BVOA0R4 
45 a2asa@ 156603 bIS8 ALL CSP) ARS GET €4 
68eg4e5 
46 82094 204574 BEG OuTSs2 PJUMP IF ZERO 
47 292086 186116 RGLS @SP GET $1 
48 92040 606566 ASL B2(SP) SHIFT 82 
evauie 
49 92044 006166 ROL AZ(SF) FSHIFT a2 
COavid 
$2 a2050 156602 B1S8 AZ*1 (SP) /R2 GET E2 


Booe1) 


SADRO4 


51 
32 
53 
54 


56 


57 


58 


61 
62 
65 
64 
65 
66 
67 
68 


69 


@20%94 
020296 
02060 
220064 


82078 
02076 
a2184 


02186 


B21i2 


G2120 


62126 
B2i5a 
82192 


B2156 


d2i142 
42144 
02146 


@2192 


82196 


02104 


@2172 
02174 
02176 


22202 
¥2204 
02206 
@2213 
@2212 
de2ia 
22216 


02222 


a22a4 


922590 
2256 


201014 
126016 
¥YO6066 
goudad 
08466 
“venbeo 
¥Vi6686 
Bagen4 
8GG2108 
016669 
C80006 
ebervie 
verssy 
126166 
28ava1 
112766 
wegegt 
@Gae011 
112766 
eeadel 
eeeeas 
1693¢2 
we3un5 
2166008 
eeeeye 
vi6cal 
peavie 
eveays 
e6eeus 
¥i6oRe 
ueoded 
e16edt 
wuaseo 
016066 
ubadid 
eeuvns 
VL6666 
veoei2 
weneas 
wvesyo 
veds4ue 
126046 
evoveal 
ZO14e3 
yvs4sel 
wesoded 
vesaod 
225722 
241452 
v22782 
177747 
yusaed 
vi6eoad 
wuauad 
G1660014 
weaves 
02002486 


A2N$23 


ExA$et 


SCA$2I 


ECAS$2i 


SFI$e2s 


BNE 
KOKRS 
ROR 
ROR 


MOV 
MOV 
BR 


ROLS 


MOQOVB 


MOVs 


SUB 
BGT 
MOV 


MOV 


BR 
ADD 
MOV 


MOV 


MOV 


MOV 


SwAs 
NEG 
CmMPa 


BEQ 
NEG 
AOC 
NEG 
TST 
HED 
CMP 


BLE 
MOV 


MOV 


OR 


A2NS2 
OSP 


AL(SP) 


Bi(SP) 
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JUMP IF NOT @ 


TRECONSTRUCT A1,81 


AL(SP),A2(SP) 


b1¢SP),b2(SP) 


QUT $e 


IDONE 


SIGNS+1 (9P) 


#1,A2e1(9P) 


HL,Ale1 (SP) 


R3,Re PRAeC2Q"E1, 

EXAS$2 IJUMP IF E@>aed 
A2(SP),R¥ FROSAZ 
w#2(°SP),R4 pRisB2 

SCKSe ICHECK SIGNS 

R2,Rd PR2eE2"E1,R838E2,F2761 
ALCSF),kY PRemAL 
BiC(SP),k! pRisB1L 


A2(SP),AL (SP) 


B2(SF),61(SP) 


oSP 
R2 


ECKS$é 
RY 


SFOSe 


#9250,R2 


SFRS$2 


IFIRST ARG TO TOP OF STACK 


1GtT $2 


PINSERT NORMAL SIT 


PINSERT NORMAL BIT 


FEXCHANGE SIGNS 


FELeE2 
SIGNS+1(5P),@SP SEE IF SIGNS ARE THE SAME 


YES, 


CHECK EXPONENTS 
NEGATE FRACTION 


NJUMP IF Else? 


WYES 


AL(SP),RO 


Bi(SP),k) 


NOOS@ 


1S TRERE ANY POINT IN SHIF YING? 


PNO, 


PAITH THE LARGER EXPONENT 


ROSE} 


ANSWER IS OPERANO 


SADRH4 


85 
86 
87 
6a 
89 
90 
91 
92 
93 
94 
95 


96 22296 


97 w2242 
98 g2244 
99 92246 


120 
i@1 
id2 


125 
164 


145 
126 


114 


116 
117 


119 
120 


124 
i25 


126 
127 


128 
129 


i130 
131 
is2 


22598 
2252 
2254 


226¢ 
2202 
2204 
2266 


2272 
2274 


2300 
2302 


2306 
2310 
2312 
2314 
2316 
2520 
2322 
2324 
2326 
2390 
2352 
2334 


2596 
2342 


2346 
2559 


2394 
2356 


2302 
2364 
2366 


W227u2 
177772 
OO3431 
used 
085700 
102801 
025104 
v227e2 
177768 
422495 
oiavel 
610422 
0627302 
eeob2e 
801421 
022702 
177770 
aVS412 
062702 
edaved 
B065a4 
286108 
26104 
wO58a2 
2835785 
Bigeal 
010408 
oea4da4 
Ba6208 
026001 
¥e5202 
002774 


v666ou 
gdusued 
266001 
vogeas 
gaosSau 
126646 
g2av0ek 
001034 
030027 
waieaed 
obi4ses 
0620u 
oeseel 


SFRS2I 


SFRS25 


SFRe2! 


NCP$2t 


SRLSZI 


SFLS25 


SFUs2s 


SFUS2I 


e LFOF 
MOV 
MOV 
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EAE 

RL,@9MQ FMOVE FRACTION TU AC,MU 

RO,@FaC 

R2,@4A5N PSRIFT RIGHT TO EQUALIZE EXPONEN 
@O¥MQ/R1 FRECOVER SHIFTED FRACTION 

@naCe ROB 


MULDIV 
@73002 %FPASHC R2,RO 


EAE SMULDAY 
#We8,eR2 FCHECK w OF BITS TU SHIFT 


SFQS2 FJUMP IP NOT MORE THAN 1/2 WORD 


R4 SET UP EXTENSION BITS 

RO JBASED ON MIGH ORDER FRACTION 
NCP§2 JUMP IP « 

R4 De OTHERWISE 

#016e,R2 


SRLS PJUMP IF LESS THAN ONE wORD TO SHIFT 
RB,RI SHIFT RIGHT A WHOLE wORD 

R4,RO FUSE EXTENSION BITS 

#16,°9R2 PACCOUNT FOR SHIFT 


SFOS2 
#e68,7R2 


SFQS2 FJUMP IF NOT MORE THAN 1/2 WORD 
#16,0R2 FSHIFT LEFT 160x 


Rg 

RQ 

Ra 

Ra COUNT LOOP 

SFLS2 

RO,Ri PPUT RESULT IN R®, RI 
Ra, RO 

SFOSs2 

R@ PSHIFT a MIN AND B MIN 
Ri 

R2 PREDUCE EXPONENT DIFFERENCE 
SFas2 


AL(SP),RU pALea2 
Bi(SP),R1 1Bi1¢62 


RW 
SIGNS#1 (9P),@SP 


$UB$2 GO CLEAN UP SUBTRACT 
RA,#1006 


NOD$2 PJUMP IF NO NORMAL BIT OVERFLOW 
RO 
Ri 


SADREG 


133 
154 
135 
136 
137 
138 
139 
149 
14{ 
142 
143 
144 


145 


146 
147 
148 
149 
15u 
154 


152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
178 
171 
172 
173 
174 
175 
176 
177 
178 


1/79 
18a 
184 


182 


183 
184 
185 


2372 
2372 
2374 
2376 
2408 
2402 
2404 
2406 
2410 
2412 
2414 
24ai6 


2422 


2426 
24a3¢a 
2452 
24964 


24356 


2442 
2444 
2445 


2446 
2450 
2452 
2454 
2456 
2469 
2462 
2404 


2404 


247% 
2472 
2474 
2476 
25uu 
2oue 


@BSeers 
¥ev5a5 
0814020 
1590003 
206016 
weseas 
Bebeal 
ee59e1 
0e59a5 
1@24i41 
183414 
019066 
CdAoty 
vigios 
eovui2 
W25726 
e12004 
¥22626 
wuaisad 


044967 
017944 
00a774 
vas 
882 


225700 
@03205 
G014195 
ees4eu 
ves4at 
@85oa0 
600516 


vdugve7 
eonaau 
waieyd 
VeSsus 
6065901 
oeblead 
Wd077)1 
eeos701 


NOUS24 


STNS$23 


Ouls2t 


Oyeget 


} 
SUBS$23 


BTY¥S2e 


BOAS2S 


ZT9S$2i 


INC 
SWAB 
BNE 
B81S8 
ROR 
ROR 
ROK 
ADC 
ADC 
BvS 
BCS 
MOV 


MOV 
TST 
MOV 
CMP 
JMP 
JSR 


BR 
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RJ PINCREASE EXPONENT 
RS PMOVE EXPONENT LEFT 
OVR$e JUMP IF OVERFLOW 
RU PRS 

@sp PINSERT SIGN 

R3 

Ri 

RI FROUND SUM 

RS 


UVRSe RJUMP IF OVERFLOW UN RUUND 
OVRte 


R3, Ae (SP) PSTURE EXPUNENT AND SIGN 
R1,82(SP) PINSERT LOW ORVER FRACTION 
(SP)* POP SIGNS 

(SP)%,R4 

(SP)*, (SP)+ POP FIRST ARGUMENT 


@(KRG)e DONE, RETURN 
RD,3CRR FERROR 3,2 


QUTS$e 


RY FCHECK WIGR ORDER RESULT FRACTION 
b19$e HIF POSITIVE SIGN IS QK 

ZTSye CHECK FOR ZERO RESULT 

Rid IGET ABSOLUTE VALUE 


esp PEXCHANGE SIGNS 


EAE 

RJ,#708 

BYAS$Ee JUMP IF NOT MORE THAN 2 TO SHIFT 
R1,@9éQ FRESULT FRACTION TU AC,MO 

RG,e@wac 

@a#NOR PNORMALIZE 

@#NOR,RS PAUJUST EXPONENT 

#96, OR ASM PSRIFT TO CORRECT POSITION 
#6,R9 COMPENSATE EXPONENT 

UNF $e JUMP IF UNDERFLOW 


Ow ACRE 

@OeMOe RL FGET FRACTION BACK 
NUDS$2 

RB,w4u0 

UTS$é2 JUMP I NORMAL BIT FOUND 
RS FOECREASE EXPUNENT 

Ri HUOUBLE FRACTION 

RY 

a9age $TRY AGAIN 

RI CHECK LOW ORDER PART 
EAé& 


SADRO4 


186 
187 
168 
189 
19a 
191 
192 
193 
194 


195 
196 
197 
196 
199 


208 
201 
202 
285 
204 
205 
2386 
207 


2504 
2506 
2519 
2512 
2514 


23522 


2522 
2524 
2526 


2552 
2594 
25355 


25356 


2540 
2542 


u@14ys 
wvedsel 
19¢i1a0 
185004 
1627038 
d2a81a 
ove761 


BES708 UTS$2i 
203522 
UG4967 UNF set 
017254 
o0n4ai 

oad 

Oee 
B4S50ai UNUS23 
PO5UAS ZERS2! 
gda725 


BNE 

BR 
eENDC 
a LTFNOF 
BEG 
SWAB 
BIS8 
CLeKS 
$uB 


BR 
eENOC 
TST 
BGT 
JSR 


BR 
aSYTE 
aSYTe 
CLR 
CLR 
BR 
eENOC 
eENDOC 


BT9$2 
ZERS2 


EAE 
ZERS2 
Ri 

Ri ,RO 
RY 
#8_,R3 


aT9s2 
RS 
NODSse2 
R5,SERR 


UNDSe@ 
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SAVE NORMALIZE SOME 
IMOVE BITS LEFT 


FTELL EXPONENT AdOUT 


ICHECK FOR UNDERFLUW 


HJUMP IF NONE 
FERROR 5,2 


FUNDERFLOW, TREAT AS 
ICLEAR EXPONENT 


TIME 


IT 


SALGGS 


CIaOnO VW B&wA & 


45 


46 
47 


48 


We544 
¥v2546 
¥259e 
“esse 


2596 
g2562 


02506 
veS7e 
A25/764 
425/76 
32604 
see? 


42614 


2616 


bebe 


AC624 


vdeded 
OUR 
oevrdoe 
whudad 
wueded 
buedes 
gvakeo 
yuade7 
“ebered 
ceusel 
wueute 
wus 


11746 
eer eed 
weeds 
elé6odd 
oeevsaed 
Ci2746 
¥740Se 
W12740 
137061 
v2d666 
16440 
(dv dee 
0141446 
evidoga 
Veb6S46 
11eo060° 
Cerne? l 
CHVE1L4 
112766 
cuPeeed 
CEAME1 
eo6e,6 
vle7 46 
e’b2965 
v1i2746 


=~ ©=s Ss we we 


=e “es Se @e GS Se Gs Te 


MACRO VRWG"14 D2WSEPm72 LLE4d PALE B 


e TITLE $4,603 
eT FOF CNDS$S 


ALUG v4dgA 


CUPYRIGAT 1971, OT¥ITAL EQUIPMENT CURPURATION, MAYNARQ, MASS 


eGLUBL ALUGrALULIY, SERR] 

eITFNOF FRU 

eGLOBL SPOOL OH, SAUR,SSBR,SMLR SUYRe SIR? 
eENDC 

THE FORTRAN ALOG AND ALOGLO FUNCTIUNS 
CALLING SEQUENCES 
JSR R5,AL0G (OR ALOUGIY) 

OR A 

ewORD ARGUMENT ADDRESS 


METURNS ENC ARG) (OR LOG{H(ARG)) IN RA,H1, 


RQExe 

mY ext 

MK 2EK2 

waBXy 

w4EXG 

R58%8 

SPaxX6 

FCaY7 

FaEKA 

Pye 

Foae%2 

Pisce 

eIFNLE FRY 

MoV PC, 0 ¢Sb: Plt? J444ek €S & FLAG 
bx LULveEe 

CLA «= (SF) rPUAG 605 

MCV e(wssyxe Fue? ak 4£0GRE 38 
hay ad7$¢ie,e (Sh) PPL se mEs/OwiEN (2) 
MOv #1$7061,7 (SF) 

CMF m(SPJ,= (SP) PGT «QRK SPACE 
MQV 2(R6),"#(9P) Gel a&kG 

hQv HG," (5h) 

GLE Lae ed HJUMP JF wT FOSLTI VE 
&SiL éSF 

Bova { (SP. ,fe6 (SF) GET EXPUREAT 
404 add2e\, (sh?) PTRANSFORM ORG TO (1/261) 
Path! asp 

NOV #J82063,7 (SF) PPUSr {/edenCOTe2 
MiOv #havoes,* (Sr) 


SALGOS 


49 
Su 
54 
52 
53 
54 


55 
56 


57 


58 


42650 
P2606 
A264Q 
V2644 
02692 


2694 
02696 
y260g 
y266e2 


¥2664 
02696 
¥267@ 
02672 
22674 
62676 
227090 
02762 
02704 
42746 
u2z7ia 
“2712 
v2714 
Y@716 
“27290 


027242 
@2724 
02726 
Q275¢ 
we7de 
02794 


22746 
02749 


) y2742 


Q2744 
02746 


ye702 
g2a754 
22796 
v276¢0 
a2762 
02764 


02766 


5 22772 


04y065 
246646 
odobes 
016646 
y@adve6 
012746 
082568 
212746 
049065 
404467 
016772 
gde2ue4s 
2@2766! 
2O2010! 
g1i32s6! 


UO3R14! 
005044! 
w17162' 
002742! 
“02754! 
wO2784! 
we2754! 
017162! 
@G2010! 
@17162) 
evebiu' 
017162! 
aneesyeo! 
217162! 
Q@geiut 


OO3beu! 
016062! 
BUSU26! 
017162! 
edaedia!t 
BORG! 


O17162' 
BOSedU! 


’ 
212900 RELSS! 
o126e1 
O127H2 
wbsied! 
vendave 
eruias 
014046 
014246 
014246 
oeuis4 


STK$S3 


STCS§S3 


U 
012666 UPSSS 
eaavie 
012666 
evadie2 


MOV 
MOY 
MOV 
MOV 
JSR 


a WORD 


eWORD 
aWwQRD 


eWORD 


eWQRD 


eWNORD 


ewORD 


MQV 
MOV 
Mav 


BR 

MOV 
MOV 
MOV 
MQV 
JMP 


MOV 


MOV 
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6(SP),#(SP) 


6(SP),«(5P) 


PPUSH X 


#002963,5(SP)  FPUSH L/2eROOTZ 
#040065,"(39P) 

R4,SPOLSM JENTEN PULISH MODE 
SSBK/UPS3, SADR, SDVK IGET (X=ROOT2)/ 
DUPSS,DUPS3 iki Vumee Copies: 


SMLROREGSS,STKSS,STKSS,STKSS 


PSET UP POLYNOMT 


SMLAr SADR, SMLR, SADR, SMLR» SADR, SMLR, SADR 


PEXPAND POLYNOMTAL 


SCLSS,SIR,PL2S3,S5MLR IGET LNCEXP) 
SADR EXISS COMBINE wlTH FRACTION 
AND CHECK IF DONE 
SMLROEXTSS PMULTIPLY BY LOGI1@CE) ANDO RETURN 
(SP) *,R¢ sPOP Y 
(SP)*,R4 
HCONS344,R2 PPOINT TO COEFFICIENTS 
STCSS 
Ri,e (SP) pPUSH Y 
R@,9(S8P) 


#(R2),#(9P) 
=(R2),9e(9P) 
@OCR4)¢ 
(SP)%, 100 (SP) 


(SP)*,100 (SP) 


SPUSH COEFFICIENT 


PMOVE ITEM TO WORK SPACE 


SAL 


77 
78 
79 
8a 


81 


82 
88 
84 


85 


86 
87 
88 


89 


90 
91 
92 


93 
94 


95 


96 
97 
98 
99 
100 
101 


102 


12s 
104 
105 
126 
107 
106 
a9 
119 
114 
112 
115 
114 
115 
116 
117 
118 


G03 


02776 


dsaeg 
BIO? 


29086 
usele 
asula 
¥S020 
Asu2d 
45826 
é8a92 
o5056 
OR 


asa4e 
05846 


asod2 


652056 
a3a6¢e 
asaoe2 
asaea 
3906 
3270 


$074 
8100 
siv2 
3103 


119. 


129 
i2i 
122 


YEA1LS4 


¥85046 
156616 
wuaess 
162710 
evnend 
Bao134 


wL6oa40 
vsukAe 
H166046 
“ebadsgee 
Wen134 


vi2746 
o71{d3e 
wi2746 
yaeuel 
22136 


188566 
06e8G9 
H024R5 
012746 
@55731 
612746 
037736 
C@WH1IS6 
gi2zead 
012001 
005726 
8@a2a5 
vo27206 
W2G016 
004967 
016726 
eeeans 

va4 

‘12 


SCLSS5 


VUPSS3 


} 
PLegs3 


exlg$si 


LGTS3s 


ERRS$SS 


ALUGIOS 


ALOG! 
LOvVSS!3 


JMP 


CLR 
BISs 


Sus 
JMP 
MOV 
MOV 
JMP 


MOY 
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@(R4)e 


7 (SP) 
6(SP),@SP 


#202°e@SP 


@(R4d+ 


2(3P),"(5P) 
2(SP),*(SP) 


C(R4)¢ 


8e 


#271050,7(SP) 


HYU4G061,= (SP) 


@(R4)4 
5 (SP) 


LGTS$9 


INO, 


#055731," (SP) 


#037736," (SP) 


@CRa)> 
(SP) *,Rw 
(SP)*,R1 


PGET EXPONENT 


PREMOVE EXCESS 128 


FOUPLICATE STACK ITEM 


FPUSH LNG2) 


CHECK FORM ALOG\A 


DUNE 


PPUSH LOWLO(E) 


POP RESULT 


JFLUSH FLAG 


R5,SERR FERROR 4,18 


RS 
4 
1¥, 


FRY 

OPC, ROj 
LUGS; 
R4} 

} 

} 
#FCDS3, RO 


ERRSO} 
F2,ris 
Ri,F Sy 
(RY)*,F SI 
a0,F eae; 
F2,P iy 
(RUF 2) 


GET @@@4%xX AS ALOGIA FLAG 


GET @ AS ALOG FLAG 

SINGLE PRECISIUN FP 

SHURT INTEGERS 

PPUINTER TU CONSTANTS FOR ROUTIN 
GET ARGUMENT 


JUMP IF NOT POSITIVE 

GET EXPONENT OF ARG 

CONVERT T U FP FORM 

SCALE FACTURSEXPONENT#LN (2) 
TRANSFORM ARG TO (1/241) 


Kel /2eSQrt (2) 


SALG@S MACRU VRUG014 B7eSEPe72 11545 PAGE Be 


123 
124 
425 
126 
127 
128 
129 
1308 
131 
ise2 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
Lae 
149 
162 
4151 
152 
453 
4594 
155 
156 
157 
1858 
159 


162 
16% 


162 
163 


{64 
165 


166 
167 
168 
169 
1728 
471 
172 


3104 
3106 


3140 
$ii2 


Siia 
5116 


$120 
3422 


B37632 
014525 


B377144 
122036 


042052 
426532 


o404a0 
pbevaa 


XPUSSE 


’ 
LGTSss 


ERRSS! 


rcUsss 


we “Sl ~~. we we 


) 
CONSS! 


- ADDF 


DIVE 
WOF 
MULE 


MOV 
LOF 
MULF 
DEC 
ADDF 
BGT 


MULF 
ADOF 
ADDF 
TST 
BEQ 
MULF 


STF 
MOV 
MOV 
RT§ 
JSR 
RTS 
aBYTE 
eBYTE 


(RO)*, FL) 


Fi,hay 


Fa,Fiy 
Fi, as 


#3,R1) 
(RO)4*, FO) 
Fi, Fey 
Ri} 
(RO)*,FO) 
XPOS) 


F2,Fe) 


LGTS3) 
(RO)*, FO) 


FO,a(8P)) 
(SP)*,R0) 
CSP)%,R17 
RSs 
R5,S3ERR) 
RS} 

4 

12, 


Kel /2eSQRT (2) 
we (X#ROOT2)/(X*ROOT2) 


Ya Wee 


COUNT OF CONSTS FOR POLYNOMIAL 
INITIALIZE ACCUMULATOR FOR POLYN 


COUNT 


Fate Yer® + CCL) 
LOOP : 


FQte Were © {/2eLN(2) 

ADO SCALE FACTOR FOR EXPONENT 
TEST ALOGIO FLAG 

ALUGiI@8e ALOGeLOG18(E) 

MOVE RESULT TO STACK 

AND THENCE TO R@,RL 


ERROR 4,130 
EXITeNO STACK CLEANUP NECESSARY 


OROER@DEPENDENT GSONSTANTS FOR ROUTINE 
R@ POINTS AY CURRENT CONSTANT IN FPU VERSION 


e WORD 


aWORD 
eENOC 


240064 ,071030) 
240068,002563) 


LN(2) 
1/2eSQRT (2) 


CONSTANTS FOR POLYNOMIAL EXPANSION 


eWORD 


aWORD 


eWQORD 


eWORD 


a lFOF 


037692,014525 


O37744,120856 


040052,125332 


040400,000008 


FRU 


164980974506 


P.999659108 


1,966669471 


$1.99999999 


MORE ORDER@DEPENVENT CONSTANTS 


e WORD 


e WORD 
eENOC 


2 ENOC 


437601,671030) 


wi/2eLN(e) 


@377396,0957339 LOGIBCE) 
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| eTITLE SANTOS 

2 o LFOF CNDS4 

3 eGLOBL AINTs*#SINTR 

4 } AINT VOQGA 

5 } COPYRIGHT 1971, VIGITAL EQUIPMENT CORP,., MAYARD, MASS, 

6 } AINT FORTRAN AINT FUNCTION, CALLING SEQUENCE 

7 } JgR RS,ALNT 

8 ; BR A 

9 J e4ORD ADDRESS UF ARGUMENT 

1@ pas 

14 j RETURNS SIGN OF ARG © GREATEST REAL INTEGER « & 

12 i ABS(ARG) IN Ra@ AND Ri, 

13 ] 

14 ! SINTR SAME FUNCTION AS AINT, BUT CALLED IN THE 

15 ; POLISH MODE WITH THE ARGUMENT AND RETURN ON THE STACK, 

16 eeaead Rgaexg 

17 agevatl Ryaxi 

18 ueadae R28X%2 

{9 ovaegs RSOXS 

20 weabad R4eX4 

2\ Or RS58#%5 

22 042806 SPaXx6 

23 oeaee7 PcaXx7 

24 1773504 MQN177504 

25 1773514 LSHw177314 

26 goaded FQeX%O 

27 CBa0eh Fiaxi 

28 a lFOF FRU 

29 AINTS »WORD 170001 JFSSETF 

32 eWORD 1724/5,2 pPLOF @2(°R5),FO FGET ARG 

31 eWORD 17{407,24 SRMOOF Oné,FO FGET INTEGER PAR 

32 eWORD 174146 #yStF Fi,e(SP) 

33 MOV (SP)*,RG ;POP TO WSER REGS 

34 MQV (SP)*,R4 

35 RTS RS PRETURN 

36 j 

37 SINTRE WORD 17@061 %JPSETF 

38 aNQRD 172426 JILOF (SP) 4,Fa IGET ARG 

39 »wORD 171467,4 POMODF ONE,FU #FGET INTEGER PAR 

42 eWORD 174146 JFSSTF Fise(SP) 

41 JMP @(R4)e JRETURN 

42 ONES48 ,wORD 240200,8 PFRLOATING 1, 

43 eENOC 

44 eIFNDF FRU 

45 99124 016904 ANT? MOV 2(R5),R4 IGET ARGUMENT ADDRESS 
oogene2 

46 g813@ w1i4a4 MOV @R4,KG $*GET HIGH CRDER ARGUMENT 

47 63132 216401 MOV 2(R4),R1 FLOW ORDER 
guevue 

48 93136 012702 MOV PC,Re MAKE R2 NON @ 

49 a@3144 aoe4a3 BR A184 

5a 99142 veSen2 SINTRE CLR R2 MAKE R2 Q 

51 @8144 gi26aa MOV (SP)%,RQ PGET HIGH URUER ARGUMENT 

§2 23146 012601 MOY (SP)*,R4 HLOW ORDER 

53 98150 a@iadas Artis4s MOV RY,RS 

54 08152 g0614a5 ROL R3 POUMP SIGN 


55 @3194 105005 CLRB RS 


SANTOS 


56 
57 


58 
59 


68 
63 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
735 
76 
77 
78 
79 
8@ 
81 
82 
83 
84 
85 
86 


w3196 
23169 


asio4 
ad166 


03172 
Osi74 
vsi76 
asea 
as2ee2 


as2u4 
85206 
vs2ig 
vs2ie2 
85214 
as216 
28222 
“s222 
3224 


0$2¢6 
O52S8¢e 


) 83292 


a3254 
W9296 
03249 


gegvas 
1627038 
oeoesy 
ee2beu 
¥22708 
177750 
wa2dad 
6050" 
oeSsves 
44412 
O14d46 


O26000 
206021 
ves2aas 
062774 
bi20035 
006504 
086180 
vaseus 
002774 


vOS7a2 
0614a4 
beA2e5 
0120146 
212046 
weyis4 


SHP SG! 


ROKRS§43 


ASLS4! 


ONES4! 


DNIS43 


MACRU VROG"14 O7eSEPm72 11840 PAGE Ge 


SwAs RS IGET EXPONENT 

Sus #23GeRS PREMOVE EXCESS 26@ ANDO CHECK RANGE 
BGe ONES4 HJUMP IF IT 1S ALREADY AN INTEGER 
CMP we dOeRS 

BLT SHF 54 PJUMP IF THERE 19 WORK TU DO 
CLR RU PARG IS « 1, SO RETURN a 

CLE Ri 

BR DNES4S 

MOV R3,e(SP) PPUSH @=SHIFT COUNT 
eIFNDF EAERMULOLY 

ROR RQ SHIFT FRACTION 

ROR Ri 

INC RS COUNT LOOP 

BLT RURSS 1GQ AGAIN 

MOY CSP)*,R3 IGET COUNT BACK 

ASL Ri SHIFT FRACTION BACK wITH O18 
ROL RQ 

INC RS COUNT LGOF AGAIN 

BLT ASLS4 

eENDC 

EAE CODE 

e LFDF EAE 

MOV #4U,R3 %FFROINT TO MO 

MOV RL,@RS JINSERT ARG 

MOV RO, e(R3) 

MOV OSPF, OaLSsn ISHIFT RAGHT 

NEG esp }SET FOR LEFT 

MOV (3P)*, @#LSH pSRIFT LEFT 

MOV (R3)*,RO RESULT TO REGS 

MOV @R3,R4 

eENOC 


MULOIV CODE 
eo LFOF MULOJdV 


e WORD 73016 JFPASHE OSP,RO FSHIFT QUT FRACTION 


NEG esp SET FOR LEFT SHIFT 
2WORD @73R226 FHASHC (SP)*,R2 
eENOC 

TST R2 ICHECK ENTRY FLAG 
BEU ONLS4 JUMP Ie SINTR 

RTS RS PRETURN IF SAINT 
MOV R1,e(SP) JPUSH RESULT 
MOV R@,= (SP) 

JMP @(R4J@ FPOLISH RETURN 
eENDC 

eENOC 


ISHIFYT INTEGER P 


SCMDG2 


C@nwroauva GD 


as242 
03244 


93290 
ws2de 
a32564 
g3e256 
aseoa 
@3262 
a320a 
us206 
use/o 
03272 


as276 


) asdug 


B5306 
YI3le 


OS3516 


wss2u 
¥d322 
Bd3e4 


443000 
@Easal 
Voudne 
“vedas 
re) 
O04287 
QVAGBS 


11720 
016001 
Bag618 
ee2%a4d 
046908 
012602 
gv2403 
eeuse2 
a12602 
eg242)i 
veulae 
ve1044 
2266016 
genie 
Beer 
026666 
evavie 
yeauge 
a@quas 
0266066 
ooouia 
wdaegd 
ea1eAl 
4500 
weeved 
1234a4 


= “SG @ @ Wwe G Ge @ we ws BS Bs 


SCMDS 


5CMos 


FPOSS! 


Smegst 


VulSsos 


eTlThe 
eo IFOF 
eGLOBL 
SCMD 


SCMD 


SCMD¥2 
CNUSS 
SCMU 
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THE UNUBLE COMPARE ROUTINEs 


Vda2A 


COPYRIGHT 19/71, 


VIGITAL EQUIPMENT CORP,, 
CALLED IN Tre POLISH MODE WITH TRE Tw 


COMPARANDS ON THE STACK$ 


PIKST IS AT S(SP), 


SECUND 1S @§P 


FLUSH THE Twl COMPARANDS AND RETURN 
THE FOLLOWING CONDITION CODESS 

FIRST « SECOND 
FIRST ®& SECOND 
FIRST > SECOND 


RIEXB 
Risxt 
R28%2 
R48%4 
$P8x6 
PC8%7 
Faexa 
a LF OF 
e WORD 
2 WORD 
e WORD 
eWORD 
IMP 
eENOC 
o LFNOF 
MQ)V 
MOV 


BGE 
ASL 
MOV 
BLT 
BR 

MOV 
BLT 
CMP 
BNE 
CMP 


BNE 
CmP 


BNE 
CMP 


Owe 
CLR 
ROR 
BCS 


FPY 

174ait 
172426 
173426 
172802 
@CR4A)¢ 


FRU 
eFC, Re 
8, (SP). 


FPS$9 

RZ 
(SP)*,Re 
SMES9S 
NEGS9 
(5P)%,R2 
PLS$§9 
R1,R2 
OUT$9 


Ned, Z 
NeQ@, Z 
Nag, Z 


HISETD 
PHLOD 

PPCMPH 
HHCFCC 


FGET GAXXXXX 


1 


} JUMP 
iFLaG 


RJUMP 
VJUMP 


JUMP 
COMPA 
IJUMP 


Be (Sh),e9P 


OUTS 


12,(9P),2(SP) 


OUTS9 
12,(9P), 


OUTS9 
ki 
RY 
PLS$9 


4(SP) 


HFLAG 


58 
ae | 
#2 


(SP)4,FO 
(SP) ¢,Fo 


MAYNARD, MASS, 


tGET SECOND 
PCOMPARE 


PGET CONUVITION CODES 


XXxXAL IN RA 


IGET HAIGH ORDER FIRST ARG 


IF FIRST ARG # 
FIRST ARG ® 
IGET RIGM SECOND ARG 


IF 


BOTH SIGNS « 


IF FIRST » AND SECOND + 


IF 
RE 
IF 


FIRST # AND SECOND =. 


MAGNITUDES 
OLFFERENT 


PSAVE C BIT AND TEST SECOND ARG @ 
FJUMP IF SECOND ARG + 


ARG 


SCMDB2 MACRU VROG"14 B7HSEPe72 {L845 PAGE 184 


$2 23326 226490 NEGSS$ NEG RO REVERSE C BIT 
83 93330 062706 PLSsSs ADD #14,2SF JPOP ARGS 
ga@o0046 
54 633384 O825700 . TST RO SET Z AND N BITS CORRECTLY 
§5 03396 woels4 JMP @C(R4)4 JFRETURN TO CALLER 
56 eENDC 


57 eGNOC 
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oon a7 gaa GAD = 


038349 
83342 


05346 
gs55¢g 
@33552 
03354 
83356 
a336¢0 
83562 
ad504 
053596 
83374 


05374 
03376 
os40a 
wsave2 
25404 
Vsavs 


asal2 


“984ala 


evabead 
OOnbe) 
O4a002 
w4evad 
eeaees 
080007 
ABODE 


w1i7ae 
016601 
guguga 
oe2ond 
486920 
oi26e2 
202403 
evasi2 
gi26e2 
Pe 
W2ale2 
081004 
026616 
veueed 
ev1eel 
205000 
vv6vau 
123401 
0054¢0 
062746 
veebO0 
Y2S7OR 
VOBlsa 


= ™ WS wo ws Ge | GS TE TS GW TS ZO 


SCMRE 


SCMRI 


FPSS$O685 


SmMES§O3 


VUTSOE 


NEGSOR 
PLSS6S 


a TITLE 
o IF OF 
eGLOBL 
SCMR 


SCMR 


SCMRO2 
CNDSO 
SCMR 


TME REAL COMPAKE RUUTINES 


VOG2A 


COPYRIGHT 1974, DIGITAL EQUIPMENT CORPe, MAYARD, MASS, 
CALLED IN THE POLISH MODE WITH THE TWO 
COMPARANDS ON THE STACKS 


FIRST IS AT 4(SP), 


SECOND 1S @SP 


FLUSH THE TWW COMPARANUS AND RETURN 
THE FULLOWING CONDITION CODES: 

FIRST « SECOND 
FIRST & SECOND 
FIRST » SECOND 


ROSxo 
RUSK 
R2eX%2 
R4n%d 
SP 8x6 
PC8%7 
FQexd 
eo LF OF 
aWORD 
aWORD 
» WORD 
awORD 
JMP 
eENOC 
e IFNDF 
MOV 
MOV 


BGE 
ASL 
MOV 
BLT 
BR 

MOV 
BLT 
CMP 
BNE 
CMP 


BNE 
CLR 
ROR 
BCS 
NEG 
AND 


TST 
JMP 
eENDOC 
eENOC 


FRU 


170004 
172426 
1734€6 
172000 
@(R4)4 


FPu 
ePC, KG 
4(S9P),R1 


FPSS§6 

R@ 
(SP)*,R2 
SMES6 
NEG$S 
(SP)4%,R2 
PLSSO 
Ri,Re 
QUTSS& 
4(SP),@8 


Nel, Z 
NeQ, Z 
Na@, 2 


1VSETF 
PHLOF 

HICMPF 
NHCFCC 


EQ 

al | 

ad) 
(SP)+,Fa GET SECOND ARG 
(SP)4,FO COMPARE 
SGET CONDITION CODES 


IGET QOXXXXx XXXX@1 IN RO 


DUMP 


IGET HIGH URDER FIRST ARG 


IF FIRST ARG ¢ 


PFLAG FIRST ARG ® 


PJUMP 
BJUMP 


PSUMP 


IGET WIGM SECOND ARG 
IF BOTH SIGNS a 
If FIRST = AND SECOND » 


IF FIRST + AND SECOND « 


ICOMPARE MAGNITUVES 


HJUMP 
) 


i JUMP 
IFLAG 
PSave 
PJUMP 


IF DIFFERENT 
SCOMPARE LUW ORDER 


IF DIFFERENT 

8 

C BIT AND TEST SECOND ARG & 
IF SECOND ARG + 


PREVERSE C BIT 
IPOP ARGS 


SET Z 


AND N BITS CORRECTLY 


FRETURN TO CALLER 


S$UBL02 MACRU VRA4914 B7eSEPe72 111948 PAGE 12 


we OGnN AU aG A = 


© 98als 


5422 
Q39424 
05426 
05430 
a5452 


e6aege 
wbavbat 
eegun2 
vvavas 
“ages 
016902 
vege? 
012202 
wii2us 
eesou2 
gasees 
esa2e5 


= Gs “es te we 


=e wo te we Gs @e wes GW We 


OBLE! 


eTITLE 
eo LFOF 


DBLE 


SOBLb2 
CNOS7 


VOe2a. 


COPYRIGHT 1971, DIVITAL EQUIPMENT CORPURATION, 


ADDRESS 


TRE DOUBLE PRESICION EQUIVALENT 
OF THE REAL ARGUMENT IN RO @ RS, 


JGET ARG ADDRESS 


1GET HIGH URDER 
IGET LOW ORDER 
ICLEAR LOWEST ORDER 


eGLOBL DOBLE 

THE FORTRAN VBLE FUNCTION 
CALLING SEQUENCE 
JSR R5,O08LE 
BR A 

e 40RD ARGUMENT 
RETURNS 

ROSXO 

Risxi 

R29X%2 

R3SXS 

RS5ax5 

MOV 2(R5),R2 
MOV CR2)%,R2 
MOV ORZ,RY 
CLA R2 

CLR RS 

RTS RS 


eENDC 


PRETURN TO CALLER 


MAYNARD, MASS 


$OCIO1 


crcCOnaea qa GANr 


12 


05454 
a5456 
05448 
as4a4e2 
25444 
05446 
09492 
es452 
a3454 
09496 
a8aea 
5462 


034o4 


23466 


04472 


u@asae 
wodeunl 
o@ovdve2a 
aegbes 
oeavad 
20ea805 
2008006 
vwQ0a7 
egeee 
28gve2 
e@aead 
VBDGBS 
eoabi1e 
veeeie 
eeabia 
veaseso 
Boavde 
C6252 
209842 
0dGvde 
22Qe36 
geabad 
wtadaa 
045046 
205216 
000401 
205046 
012046 
010146 
¥ig2eo 
010546 
0124946 
210946 
005046 
O85046 
Ca80466 
012746 
@28¢181 
012746 
eonve2 
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eTITLE SOCIOL 
eo lFOF CNOS8 


$0CI VOQLA 
COPYRIGHT 1971, DIGITAL EQUIPMENT CURPORATION, MAYNARD, MASS 


=e ws we te WS 


eGLOBL S$UCIeSRCI 

SOCI s=#6 ASCII TO OOUBLE CONVERSION, 
SRCI wwe ASCII TO REAL CONVERSION, 
CALLING SEQUENCES 

PUSH ALORESS OF START OF FIELD 

PUSH LENGTH UF FIELD 

PUSH FORMAT SCALE D FRUM Wed 

PUSH P FORMAT SCALE 


we te Www Ws Ww Ge “Ge 


JSR PC,$0CI (OR SROTI) 
RQaxe 
RiUsxi 
R28%2 
A ORXS 
RAEK4 
R58x%5 
SP 8X6 
PCaX7 
NUMEND&Y 
POLNTL&2 
Orel TSe4 
BEXP #6 
ESLGNs&, 
SIGN812, 
E&XrPal2, 
Pada, 
Dedd, 
ERP w26, 
LENGTHaS4, 
TEMPSLENGTH 
RESULTEP 
STAR Ta36, 
ENUsSTART 
SRE 8 CLR =(SP) ICLEAR ERROR FLAG 
INC @SP $SET REaL CONVERSION FLAG 
BR CNVS8 
SOUT: CLR # (SP) CLEAR ERROR FLAG AND SET FOR DOUBLE 
CNVS$S3 MOV RY, (SP) 
MOV Rise (SP) 
OV Re, (SP) 
MOV R$,e (SP) 
MOV R4,e (SP) 
MOV RS,» (SP) 
CLR = (SP) ICLEAR EXP 
CLR # (SP) CLEAR SIGN 
CLR e (SP) ICLEAR ESIGN 
MOV #65,00(SP) PINITIALIZE BEXP 
MOV #18,0e (SP) PINITIALIZE MAX DIGITS 


SOCI@} 


25476 
65500 
g3502 


23596 
asd5i4 
5516 
us52¢ 
a5622 
@s524 
23526 
055352 


45556 
23540 


23544 
238846 


@555@ 


05556 
23560 


@3564 
Q3566 
03572 
05574 
@3576 
4s602 


236986 
04610 


“s614 


W9620 
03622 


) W624 


85626 
03650 
09652 
vsodd 
405636 
05649 
25642 
05644 


03699 
ys692 


03656 


205046 
025046 
16665 
60O044 
066666 
“eeeda 
woudad 
0065000 
2050a1 
2e5002 
esses 
1125¢4 
42704 
177622 
y2u4e7 
a0uv6d 
404005 
27566 
YAG44 
002767 
020167 
280926 
120427 
@0¢e283 
001455 
1228427 
48ae55 
21013 
408266 
26@012 
600447 
112504 
42704 
177600 
120427 
2gad4u 
8182 
012704 
20ee6a 
120427 
V8C068 
082914 
2O1842 
“25720 
221006 
Pes7ol 
verdad 
vvs7 ve 
“veieve 
0os7a3 
wei4es 
120427 
“vape7i 
wesied 
008566 
vdgdas 
02008 


SCNSBS 


$GSg581 


NXT$83 


NCKSGE 


NNZS8E 


CLLR 
CLR 
MOV 


AOD 
CLR 
CLR 
Cu 
CLR 
Move 
BIC 
CMPB 


BNE 
CMP 


BLT 
JMP 


CmMPS 


BEQ 
CMP 


BNE 


ING 


BR 
MOV 
BIC 


CMP 


BNE 
MOV 


CmPa 


BLT 
BNE 
TST 
BNE 
TST 
BNE 
TST 
BNE 
TST 
BEG 
CMPB 


BGT 
DEC 


BGE 


# (SP) 
#(S$P) 


MACRU VRO4914 O7"SEPe72 14145 PALE {de 


ICLEAR POINTL 
ICLEAR NUMEND 


START (SPJ,R5_ IGET FIELD START ADORESS 


LENGTH(SP) ,END (SP) 


POINT TO END of 


Re ICLEAR NUMERIC WORK SPACE 

Ri 

R2 

RS ) . 

(KD) *, RA IGET NEXT INPUT CHARACTER 
#177000,R4 

R4,#!' FTEST FOR BLANK 

SGS$6  J1F NOT BLANK LOOK FOR + OR @ 
R5,START(SP) HCHECK END OF FIELD 

SCNS8 JFIF NOT DONE GO GET NEXT 

ZERSS8 JENTIRE FIELD IS BLANK 

R4,@!e JCHECK FOR + SIGN 

FLOSS IF FOUND IGNORE IT 

R4,#'e JCHECK FOR © SIGN 

NCKS8 #IF NOT FOUND CHECK NUMERICS 
SIGN(SP) SET © SIGN FLAG 

FLOSS 

(R5)%,R4 IGET NEXT INPUT CHARACTER 
#177600,R4 

R4,#'  JCHECK FOR BLANKS 

NCK$8 

#'@,%4 FTREAT BLANK AS @ 

K4,#'@ ICHECK FOR LEGAL CHARACTER 

PCKS8 CHECK FOR DECIMAL POINT 

NNZS® J#JUMP IF NOT @ 

RO CHECK TO SEE IF ANY NONZERO DIGITS FOU 
NNZS8 

Ri 

NNZSO 

R2 

NNZS8 

RS 

FLOSS 

R4,H#'9 

EXCS8 CHECK FOR EXPONENT 

DIGITS(SP) FCOUNT AS & SIGNIFICANT DIGIT 
AgI$8  #JUMP IF WE CAN USE THIS DIGIT 
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97 93664 vsS266 INC EEXP(LSP) COMPENSATE FOR SKIPPED DIGIT 
wegaia 
98 03664 wbo412 BR FLOSS 
99 23606 162724 AgISet SUB #600,%4 $FCONVERT ASCII TO INTEGER 
wUCbs2 
128 $672 4246767 JSK PC, ML 5$8 PMULTIPLY BY 5 
w1ede 
141 $676 Ae JSR PC,LFTS8 PDOUBLE RESULT FOR 12 
wile 
182 3742 w6e4as ADO R4,R9 PAOD IN CURRENT OLGIT 
123 $704 gd55a2 AOC R2 
104 3706 wedsoali ADC Ri 
189 $710 Ba5dae aoc RO JEND OF CONVERT FOR THIS OIGIT 
106 3712 222566 FLUSSs: CMP RS,END (SP) PCMECK FOR END OF FIELD 
edouds 
107 $716 002720 BLT NXT$6 
188 872e wiudsi6 MOV RS5,@93P JFPOINTER TO LaST NUMERIC TO NUMEND 
109 $722 005700 ScLS$St TST Rd 
118 $724 weieeas BNE SCig6 HJUMP IF NUMBER NOT @ 
111 $726 o2S7e1 TST Ri 
112 38730 w8ided BNE SCiss 
115 387382 BdS7v2 TST R2 
114 37384 geieee BNE SCiss 
115 3736 65788 TST R$ é 
116 3749 we1457 BEQ ZERSS FINPUT NUMBER IS @ 
147 3742 g216¢@5 SCisss CMP @SP,K5 ICHECK NUMEND 
116 3744 6810¢5 BNE NOP$8 iJUMP IF TRERE wAS AN EXPONENT FIELD 
119 3746 166666 Sus P(SP),EEXP(SP) JUSE THE FORMAT P SCALE 
220036 
080014 
120 3754 g85760 NOPS8: TST POINTL (SP) 
28eese2 
121 3760 wbi1dce BNE PNTS$& PIUMP IPF THERE wAS A DECIMAL POINT 
122 3762 016616 MOV O(SP),e@8P USE THE D SCALE 
aveeag 
123 3766 166616 PNISés Sus PUINIL (SP) ,@SP 
eegdae2 
124 3772 161666 $uB @SP,CEXP (SP) SFORM COMPLETE OECIMAL EXPONENT 
00014 
125 3776 vaseas BGT MUL SS MULTIPLY BY 10wWEXP 
126 4980 e82543 BLT Olvsy JUMP IF DECIMAL EXPONENT IS NEG 
127 4002 480167 JMP FLTS$8 PJUMP IF EXP 18 @ 
ovo4a6 
128 4086 w2ue27 MULS8E CMP RO,w51 462 
31462 
129 4912 1801011 BHI MDVS§8 JUMP JF FRACT TOO BIG TO MULT BY 5 
150 4@14 084767 JSR PC,MLSS8 PFRACTOS*FRACT 
eva722 
131 4220 085266 INC BEXPC(SP) ITIMES 2 
oteea6 
132 4024 025566 016883 CEC EEXPWSP) POVER 40 
eogei4 
133 4¢30 oess66 BGT MUL $8 JUMP IF MORE DECIMAL EXPONENT 
134 4432 000167 JMP FLT$o POECIMAL EXPONENT GONE 
weasy6 
135 4056 224767 MOVSS?t JSR PC,M94$8 MULTIPLY BY 5/4 


2éeose 


SOCTO4 


136 


137 
156 


139 
142 


144 
142 


143 
144 


145 
146 
147 
148 
149 


158 


153 
152 


155 
154 
155 
156 


157 
158 


159 
168 
164 
162 


163 
164 


165 
166 


167 
168 
169 
178 
171% 


172 
i738 


4942 


4050 
4052 


4006 
4960 


4g04 
4066 


4a7@ 
4074 


41869 
4102 
ails 
4106 
4110 


4tia 


4129 
4122 


4326 
4139 
413@ 
4134 


414g 
4142 


4146 
4159 
4192 
4156 


4162 
ajoa 


4172 
4472 


4176 
4262 
4204 
4236 
4212 


4216 
4220 


862766 
eeevas 
269006 
a02a765 
120427 
280886 
201006 
828766 
G800802 
e610eS 
#10565 
e0aeae2 
000707 
185166 
029839 
05000 
oe50ai 
weseeg 
285803 
800167 
v8e450 
120427 
e8ai05 
8814895 
126427 
eeoia4 
2634962 
@1e616 
va5516 
B1gs66 
B0gha2 
@850¢e85 
@20566 
BegRa4 
g02552 
412994 
042704 
177688 
120427 
eeeuss 
0814056 
120427 
208855 


PCKS6! 


PrP S6s 


ErRaGs 
ZERSGS 


ExGset 


ExTaas 


B81818 


205266 
e2au10 
220566 
O22844 
OB2934 
112904 
e42704 
177600 
120427 
809048 


EFisét 


EF2s83 


ENMS83 


ee1ee2 — 


ai27e4 
eeecea 


Add 


BR 
CmP8 


BNE 
TST 


BNE 
MOV 


BR 
COMB 


CLR 
CLR 
CLR 
CLR 
JMP 


CMPB 


BEG 
CMPB 


BNE 
MOV 


DEC 


MOV 


CLR 
CMP 


BGE 
MOVB 
BIC 
CMPB 


BEG 
CMP 


BNE 
INC 


CMP 
BGE 
MOVB 
BIC 
CMPB 


BNE 
MOV 
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#3, GEXP (SP) TIMES 8 

D1@88 GO DIVIDE BY 1¢ 

R4,a!, 

ERRSS® JJUMP IF NOT A DECAMAL POINT 
POINTL (SP) 

ERRSS JUMP IF A, ALREAUY ENCOUNTERED 
RS;PUINTL(SP)  JSAVE A POINTER TO THE . #8 
FLOS® 9GO FOR NEXT CHARACTER 

ERFel (SP) IFLAG ERROR 

Re PRESULT 18 @ 

RY 

Ra 

RS 

STRS® GO PUSH RESULT AND RETURN 
R4,e'€ 

EXTS® FUUMP IF E 

R4,e'D 

ERRSS IF NOT E OR 0 THEN ERROR 
R5,@3P JSAVE POINTER TO END OF NUM #1 
esr IDECREMENT NUMEND 

R3, TEMP (SP) 

RS 

R5,END(8P) 

ERRSS JUMP IF NO ROOM FOR EXP 
(R5)*,RA 

#177000,R4 

Ré,¥'s FCHECK FOR oEXP 

EFi86 

R4,ete CHECK FOR EXP 

ENMS® 9G0 CHECK FOR NUMERIC 
ESIGN(SP) IFLAG EXPONENT NEGATIVE 
R5,END(8P) 

ERRSS 

(R5)*,Re 1GET NEXT CHAR 
#177600,R4 

R4,0! ICHECK FOR BLANK 

EN 88 

410,44 TREAT BLANK AS @ 


SOCIOL MACKO VROG"44 G7eSEPe72 1184S PAGE 154 


174 4224 129427 ENIS&t CMPB R4,#'® 


veoawee 
175 4230 @82721 BLT ERRSS 
176 4232 120427 CmMPa R4,'9 
oeeae7i 
177 4296 223316 BGT ERRSS NOT A VALIO CHAR 
178 4240 162704 Su #60,%4 FCONVERT ASCII TU INTEGER 
wees, 
179 4244 we6seds ASL RS SX9¢0eXe0 
188 4246 v6oda4 AOD R¥,RA 
164 4298 806595 ASL RS 
182 4252 886303 AS RS 
1983 4254 9604903 AOD R4,R9 TEND OF ABOVE COMMENT 
184 4256 w20566 CMP RS,END (SP) 
ge2b4aa 
1865 4262 402750 BLT EF2s JUMP JF MORE FIELD To GO 
186 4264 005766 TST ESIGN(SP) PCRECK EXPONENT SIGN 
CO2K1e 
187 4270 2014¢1 BEG EN2S8 PJUMP IF IT IS @ 
188 42872 o85403 NEG RJ PMAKE USER EXPONENT @ 
189 4274 B6u566 EN2$68 ADD K3,ECXP (SP) SGET COMPLETE DECIMAL EXPONENT 
oeeers 
19@ 4300 216605 MOV TEMP(SP)¢RS 
wOGR42 
191 4384 620167 JMP SCLS8 GO SCALE THE NUMERIC PaRT 
177412 
192 4310 865786 DIVSss TST R@ 
193 4312 282405 BLT Oviss PIUMP IF FRACT LEFT JUSTIFIED 
194 4314 285966 Dvess: ODEC BEXP (SP) JLEFT JUSTIFY NUMERIC BITS 
eeoves 
195 4320 024767 JSK PC,LFTS6 
wve464 
196 4324 1280573 BPL oDv2ss 
197 4346 wi2704 DVIS6E MOV #16,°9R4 FSET FOR SIXTEEN ITERATIONS 
eoea2a 
198 4332 0084767 JSR PC,RITS8 
wounded 
199 4356 818946 MOV Ro," (SP) 
200 4849 010246 MOV R2,e(SP) 
204 4342 o1e146 MQV Ripe (SP) PINITIALLZZE QUOTIENT 
202 4344 w19046 MOV RO,#(SP) 
203 4346 024767 Ovds8s JSR PC, RITSS 
gvease 
224 4392 adneal CLG 
205 4354 004767 JSR PC, RITSB 
vde4ae2 
286 4369 012705 MOV #2,89 
veatee2 
247 4364 wsuedl CLC 
288 43660 wa4767 DV4883 JSR FC,RATSE 
2200430 
209 4372 w66008 ADO 6(5P],R3 
vanee6 
218 4376 605522 AoC R2 
241 4400 Bedsdeli aoc RY 
212 4402 wbs5e0 Aoc RO 


215 4404 wo6bHe2 AOU 4(SP),R2 


$OCT@s 


4410 
4412 
a4ai4 


4420 
4422 
4464 
4426 
4450 
4432 
4434 


444g 


5 4446 


4492 
4454 


44602 


4464 
4466 


4474 
4476 


4504 
4506 
45ia 
45i2 
4514 
4516 
4629 
4822 
4524 
4526 
453Q 
4832 


a5s6 
454g 


4544 


459¢ 
4592 
4524 
4556 
4509 
4569 
4b64 


veoved 
005904 
0059280 
0666Gq4 
wawepege 
wdsoad 
061688 
005305 
003357 
yesso4 
23845 
062746 
680010 
162766 
geoeas 
v200a6 
225266 
edauia 
ee2710 
2U5S66 
weaves 
004767 
000324 
103578 
262766 
gG4gens 
e6e0a6 
005475 
0266927 
eOeee6 
000377 
005071 
125008 
15a2e$ 
geosys 
1050¢2 
iSeig2 
wvusoa 
186001 
159084 
geedal 
1850008 
1569R¢ 
2eode6 
eduseu 
Y26066 
“eadie 
004767 
wugedse2 
065908 
005902 
vessel 
025900 
102443 


103442 - 


145/06 
“usededse 


FLTS6t 


STRESS 


ADC 
AOC 
AOD 


AOC 
ADD 
VEG 
BGT 
DEC 
BGT 
ADD 


SUB 


INC 


BLT 
DEC 
JSR 
BCC 
ADU 


BLE 


«CMP 


BGT 

CLRB 
B1S8 
TLD 
CLRB 
8188 
SWAB 
CLRB 
81Sa 
SwAds 
CLRB 
B1S8 


SwAg 
ROR 


JSR 


AOC 
aoc 
AoC 
ADC 
Bys 
uCcs 
TST 
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Ri 
RO 
2(SP),R4 


RS PCOUNT TWICE 
OV3se 
#8,,9P $FROP DIVIDEND 


#35, 8EXP (SP) 


EEXPUSP) FBUMP DECIMAL EXPONENT 


DIVSs PJUMP If MORE TO DO 
BEXP (SP) PPOST NORMALIZE THE RESULT 


PC OLFTS8 


FLTS® 
#200) BEX (SP) FSET EXCESS 128 


UNOSS INUMBER TOO SMALL TO REPRESENT 
BEXPCSP) 64377 


OVRSS PJUMP IF NUMBER TOO BIG 


Ri 

R@,R4 MOVE OUT LOWEST ORDER BITS 
Ri 

RO 

BEXPISP) + RB PINSERT THE BINARY EXPONENT 
RO PUT IN THE RIGHT URDER 

SIGNISP) STEST THE ARITHMETIC SIGN 


PC,RITSS PINSERT IN RESULT 


Ri PFINAL ROUND 


OVRSS PJUMP IF OVERFLOW 
QVR§5 
ERF (SP) TEST REAL/DOUBLE PLAG 


$DCTO1 


2595 
256 
257 
258 
259 
268 
264 
262 
265 


264 
265 
266 
267 


268 
269 
278 
a7i 
272 
278 
a74 
275 
276 


277 


278 
279 
288 
281 
282 


283 
264 


285 
2a6 
287 


288 


289 
2908 
294 
292 
293 
294 


295 


296. 


297 
298 


457¢ 
4572 
4574 
4376 
4680 
4602 
4604 
4606 
4612 


4614 
4623 
4624 
4632 


4634 
4656 
4649 
4642 
4644 
4646 
4650 
4652 
4654 


4669 


4664 
4666 


467% 
4672¢ 


4674 


4708 
4702 
4704 


4710 


4714 
4716 
4720 
4742 
4724 
47206 


4792 
4754 


4742 
4742 


061447 
oGb1ge2 
205501 
wescae 
182433 
123432 
gieve2 
eieias 
wigd6e 
wOaess 
010166 
vVeubad 
10266 
wiebae 
212566 
ebabad 
¥627008 
e2ovui1e 
6126005 
vi26o4 
vizeoe0s 
12602 
B12004 
wi 2°00 
195746 
081404 
012666 
a8eave2 
612466 
eeave2 
206126 
0020207 


B@2167 
177226 


020027 
146514 
1854605 
eea24i 
2046767 
“v@eii2 
005266 
COO¥10 
010046 
0129146 
010246 
#210546 
e492ah 
“04767 
280076 
Cdgeal 
004767 
geev6e 
0204610 
810046 


OPR§8t 


RRNSGBS 


} 
Ove ges 
UNUSS&8 


5 
MS4g81 


MSOSot 


ML DSO 


BEW 
ROL 
ADC 
ADC 
oVS 
BCS 
MOV 
MOV 
MOV 


MOV 
MOV 
MoV 
ADD 


MOV 
MOV 
MOV 
MQV 
MOV 
MOY 
TS8T8 
BEG 
MQV 


MOV 


ROL 
RTS 


JMP 


CMP 


BLO 
CLC 
JSR 


INC 


MOV 
MOV 
MOV 
MOV 
CLC 
JSK 


CLC 
JSW 
BR 

MOV 


DPRGS 


R1,Rd 
R@,-RESUL 


RiY,RESUL 
R2,RESUL 
RS$,RESUL 
#14,55P 


(SP)*,R5 
(SP)*,Ra 
(SP)¢,Ro 
(3P)°*,Re 
(SP)*,R1 
gpk 
RRNSG 


(SP)*,2(5P) 


(SP)*,2¢5P) 


(SP)* 
PC 


ERRGE 


R6,#1463 
M5588 

PC,RITS8 
BEXP*Qe2 
RY, w(SP) 
Ri,# (SP) 
R2,e (SP) 
RS,e(SP) 


PC,RITS8 


PC,RITS6 


MDASS 
RB, (SP) 
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PJUMP IF OUUBLE 
PROUND TO REAL PRECISION 


FJUMP ITF OVERFLOW ON ROUND 
PMOVE HIGH ORDER RESULT UP 


TCSP) PSTORE RESULT ON STACK 
Te2 (SP) 
T#4(SP) 
1+6(SP) 


CLEAR STACK OF JUNK 


STEST REAL/OOUBLE FLAG 
PJUMP IF DOUBLE 

PPUSH FLAG UP 
PPUSH RETURN UP 


PFLUSH FLAG AND SET C BIT IF ERROR 


i4 
HJUMP IF ROOM FOR 5/4 * FRACT 
POIVIDE BY 2 


(SP) MULTIPLY BY 2 


PHALF 


FOUARTER 


1GO GET FeFs4 


MULT BY 5S 


SOCI@L 


299 
$00 
3O1 
302 


303 


304 
3u5 
306 
307 
308 
309 
340 
344 
312 
31 
sid 
315 
316 
317 
338 
349 
320 
321 
322 
323 
$24 
326 


4744 
4746 
475¢ 
4792 


4736 


4762 
4766 
4766 
4770 
4772 
4774 
4776 
Dade 
Sev2 
oou4 
5a06 
Sole 
dake 
boi4 
5ai6 
Sede 
5a22 
5o24 
deas 
dade 
sade 


viaia6 
v1g2a6 
01U946 
004767 
veeese 
004767 
eene2s 
062005 MBASB3 
yusdsee2 
o¥55o1 
005800 
062602 
005501 
0055e0 
w62601 
g055e0 
w626y0 
wveeg?7 
oe6sas LFTSSs 
ve6lve2 
B061e21 
286100 
gag2e7 
O86200 RITSBS 
Re6ea1 
weeeee2 
oeevas 
oaneo7 


MOV 
MOV 
MOV 
JSR 


JSR 


ADD 
aoe 
AvG 
Aoc 
ADD 
ADC 
Adc 
ADD 
AoC 
AOdD 
RTS 
ASL 
ROL 
ROL 
ROL 
RTS 
ROR 
ROR 
ROR 
ROR 
RTS 
eENDC 


Ri,# (SP) 
R2,«@(SP) 
R3,0(8P) 
PC, LFTS8 


PC,»LFTS$8 
(SP)%,RS 
R2 


(SP)*,R2 
Ri 


RO 
(CSP)%,R1 
RO 


(SP)+,RO 
PC 
RS 
R2 
Rt 
R@ 
PC 
Re 
Ri 
R2 
RS 
PC 
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PDOUBLE 
PQUADRUPLE 


ICQOOES MAY BE TESTED ON RETURN 


$OCuUW4 


mare Oaonaaac A= 


5054 


asada 
vso4se 
aon4d 
25046 
a5aou 
Y9892 
aogoa 
29456 


¥O862 
@5e04 


02078 


“95074 


85476 


49102 


ee ee ee ee 


™= “Sp 2 Se WS “SS GS G Ge @Ve Be De 


BUaesd 

wdVsdt 

ududde 

vbaves 

vueedud 

wuaugs 

avades 

BVeeR7 

edaeec2e POINT? 
C404 BEXP ES 
wavvee EEAP RE 
VUO0s4d TYPERL2, 
@0GU20 Pal6, 
wded22 als, 
Qdvw24 weed. 
wdiv2o Sec2, 
@12706 S$GOG! 
v424es 

C0242 

245000 $FLO3 
000416 

vi2Seu scoGo! 
wi20o} 

vi2od2 

011083 

vi2e716 

“ud2e20ge2 

216446 

¢16004 

eoungad 

210066 

ebubga 

200412 

012708 S$ELOS 
42402 

W€1209e0S xcOsgr 
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eTITLE s0COW4 
a lFOF CNDS9 


20CO VOGG4 


COPYRIGHT 1971,197¢2 DIGITAL EQUIPMENT CORPORATION, MAYNAND,MAS 


eGLOBL S$ECOrSFCU,§6C0,80CU 
SECO THE & CONVERSION QUTPUT ROUTINE FOR REALS 
SFCO THE F CONVERSION OUTPUT ROUTINE FOR REALS 
$GCO THE | CUNVERSION QUTPUT ROUTINE FOR REALS 
$OCO THE OU CUNVERSION ROUTINE FUR DOUBLES 
CALLING SBUUENCES 

PUSH FIELO START 

PUSH FIELD LENGTN 

PUSH DO PART UF weD SPECIFICATION 

PUSH P SCALE 

MUSH VALUE TU Be OUTPUT 

JSR PC, $EC0 (OR $FCO) (UR $6C0) (UR $0CQO) 
KBs Ri, R2, KR3¥ ARE OESTROYED 

RB=ZKO 

RLEX] 

R242 

A baXS 

R45X%64 

PLE ee 

SPEXE 

PCS%7 


MOV #42403,R0 IFLAG G FORMAT 

BR XCO$Y 

CLR RY iFLAG F FORMAT 

HR xCOSY 

MQYV (3P)%,RG POP RETURN 

MOV (SP)*,R1 IGET MIGHEST ORVER ARG 
MQV (SP)*,R2 GET NEXT 

MOV @SP,R3 FTHIRD ARG WORD 

MUY 442002,6SP JFLAG 0 FORMAT 

MOV R4,e(SP) SAVE Rd 

MOV 4(SP),Ke PLET LOWEST ORDER ARG 
Magy RG, 4(SP) PSAVE RETURN 

BR xC149 

MOV #42402,K0 PFLAG E FORMAT 

MOV (SP)%,RS PSAVE RETURN 


$0CO0G4 


53 
54 
55 


99 


o5104 
65186 
05118 
vSiia2 
w51i4 
@5116 
aSieg 
a5122 
o5126 
05186 
85150 
051352 


a514¢ 
aida 
@5152 


5154 
85156 
2516@ 
g5162 
5164 


05170 
a5172 
O5174 


05176 
esate 
e522 
ao2ha 
w52ve 
aoeie 
o52ie2 
o52i4 
a52i6 


a5222 
p5226 
05226 


25294 
252956 
8240 
38242 
05244 
25246 
05259 
26252 
05254 


o526¢ 


108 5262 


oie6ul 
12692 
@1a846 
219046 
B252e3 
212446 
eesega 
gig546 
vbsv46 
005046 
924646 
¥66666 
0A0026 
oved2d 
616990 
242826 
112726 
eeaeae 
020066 
ebewad 
163773 
weelel 
206116 
ease! 
13e@166 
weegee4 
634002 
geseae 
weesoa 


B2ee6} 
206001 
195003 
e@asee2 
159201 
165é02 
ebasas 
i5easa2 
105008 
eaasa4 
159445 
105004 
162766 
ede2eo 
wOGRB4 
we2426 
004447 
065704 
042412 
B46504 
206105 
606302 
wedies 
085066 
200004 
003967 
B6a435 


XCiS9s 


CLEsos 


J 
NNZSOE 


MULSOS 


MOV 
MOV 
MOV 
MOV 
CLR 
MOV 
CLR 
mov 
CLR 
CLR 
CMP 
ADD 


MOV 
MOVS 
CMP 


BLO 
ROL 
ROL 
SwAB 
MOVa 


BNE 
CLR 
BR 


SEC 

ROR 

CLRB 
SWAB 
BISs8 
CLRS 
SWAB 
B188 
CLLRS 
SWAB 
BYS8 
CLRS 
Sud 


BLT 
BEG 
TST 
BLT 
ASL 
ROL 
ROL 
KOL 
DEC 


BGT 
BR 
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e (SP) ,* (SP) 
§(8P),L¢5P) 


(SP)*,R} IGET HIGN ORDER ARG 

(SP)%,R2 IGET LOW ORDER ARG 

R3,#(SP) PPUSH RETURN 

RY, a (SP) PPUSH TYPE 

R3 ICLEAR LOW ORDER REGISTERS 

R4,e(SP) ISAVE R4 

R4 

R5,«(SP) PSAVE RS AND CONTINUE ALL TYPES 
=(SP) ICLEAR EXP 

o (SP) ICLEAR BEXP 


pROOM FOR POINT AND SIGN 
PPOINT 1 BEYOND END OF FIELD 


S(SP),RO 
a! ,CRO)¢ JBLANK OUT FIELD 

RO,»LUSP) 

CLES® 

Ri IGET ARG SIGN 

esp ISAVE IT 

Ri 7 

Ri, BEXP (SP) JGET BINARY EXPONENT 

NNZ$9  JJUMP IF ARG NOT @ 

ROP CLEAR OVERFLOW ACCUMULATOR 
NODS9y GO PRINT THE @ IN FORMAT 
yINSERT NORMAL BIT 

Ri 

RI LEFT JUSTIFY FRACTION 

R2 

R2,R1 

R2 

R3 

RS,R2 

R3 

R4 

R4,RS 

Ra -_ 

#2G0,BEXP(SP)  JREMOVE EXCESS 128 FROM BINARY E 
OlVS® JUMP IF BINARY EXPONENT NEG 

NOMS9 #JUMP IF NO SCALING To DO 

Ri IBINARY EXPONENT IS POSITIVE 

MLiS9  #JUMP IF FRACTION OVERFLOW IMPENDING 
Ra HDOUBLE FRACTION 

RS 

R2 

RY 

BEXP(SP) COMPENSATE EXPONENT 

MULS9  JPJUMP IF MORE BINARY SCALING TO 00 
NOMS9 
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421 9204 @24767 ML1898 JSR PC,M4589 SGET 4/5 FRACTION 
¥O2046 
102 5270 405266 INC EEXPISP) MULTIPLY BY 10 
vogves 
143 5274 162766 SuB #5, BEXP (OP) SAND DIVIDE BY 8 
gbuves 
eugees 
104 9302 wddd56 BGT MUL SY JUMP IF BINARY EXPONENT STILL POS. 
105 5364 ou1424 BEG NOM$¥ PSUMP IF EXPONENT GONE NOW 
$05 5386 @29127 DIVS9! CMP R1, #146314 BINARY EXPONENT IS NEGATIVE 
1463544 
107 5332 143014 BHIS DViS# PJUMP IF NO ROOM FOR 5/74 FRACTION 
198 S314 426627 CMP BEXP(SP) ,p#e3 
. veoee4 
177775 
109 S322 wdseie BGT Ovis9 PJUMP IF NOT ENOUGH BINARY EXP LEFT 
1142 5324 004767 JSR PC,M9 489 MULTIPLY FRACTION BY 5/4 
yevded 
114 5330 45566 DEC EagXxPUSP) FOIVIVE BY 12 
w2euns 
112 9384 w62766 ADD #2,BCXP (SP) MULTIPLY BY 4 
aeauoe 
| 
113 9342 vuadsee BR DV2s9 
114 5344 ww4767 OVis9i JSK PC,RITS9 pOIVIDE BY 2 
W21264 
115 5350 wes266 Oveso9s INC BEXP (SP) MULTIPLY BY 2 
aocvad 
116 5356 9213554 BNE DIVS¥ PHIT IT AGAIN IF BIN, EXP, NOT GONE 
117 } AT THIS POINT THE BINARY EXPONENT 18 Q 
118 ' AND THE FRACTION IS IN Ri, R2, RS AND R4, 
119 5396 wuSda0 NOMS9S CLE R@ PCLEAR OVERFLOW ACCUMULATOR 
120 5360 004767 NOIS9t JSR PC,MDd4$9 PMULTIPLY FRACTION BY 5/4 
w0aded 
$21 5364 004767 JSR PC,MLaS9 PANDO NOW BY 8 
000656 
122 5379 wds7od TsT RO 
1235 5372 weidas BNE NODSY HJUMP IF AN INTEGER PART RESULTS 
124 5374 0253966 DEC EEXPISP) POECREMENT EXPONENT 
gugeas 
125 5409 462767 BR NOLS9 BGO AGAIN 10 GET AN INTEGER PART 
126 } AY THIS POINT THE MOST SIGNIFICANT NON ZERO DIGIT IS IN 
127 5402 105766 NOUS9!t TSTd TYPE CSP) JTEST CONVERSON TYPE 
eeaeye 
128 5406 wt1424 BEW FFTS$9 }JUMP IF F FORMAT 
129 Saly 106066 RORB TYPE(SP) 
vuewis 
138 9414 103114 BCC EF TS JUMP IF E FORMAT UR |) FORMAT 
134 5416 wt5766 TST EEXP(SP) 1G FORMAT 
youees 
132 5422 wo2sis BLT EFTS9 PJUMP IF RESULT <,3 
133 9424 420666 CMP EEXPISP) +U CSP) 
eoaves 
is o6ud22 
134 5492 vv3ias BGT EFTSY PJUMP IF RESULT *1ewp 
135 5454 105266 CLRS TYPECSP) MAKE TYPE F INSTEAD OF G 


agevi4d 


$OCOW4 


136 5444 162/766 


137 


1358 
139 
140 
141 
142 
143 
144 
{45 
146 
147 
148 
149 
1508 
151 


152 
i383 


154 
155 
156 
157 


158 
159 


160 
464 


162 


1635 
164 


165 


5446 


9494 
3469 
5404 
5479 
54/74 
550¢ 
5504 
5510 
5514 
5516 
5524 
9526 
5552 
95356 


5342 
5544 


3559 
5554 
556¢ 
5564 


357@ 
5572 


5576 
5600 


5604 


2612 
9612 


9616 


obeved 
vdieeed 
166666 
20e0a6 
v6G022 
065066 
VOG020 
216685 
Q8aves 
066695 
2ouv22 
066095 
000020 
0046767 
202642 
016645 
veaaves 
166605 
OOG822 
105766 
veoe1a 
061038 
¥66666 
vereeo 
odad2e 
003407 
166695 
aeae2e0 
162705 
CGedse2 
404767 
veu7asd 
C4a416 
162705 
aegdas 
204767 
e8e73e2 
112725 
200068 
112729 
002056 
020966 
obev2e4 
103008 
112725 
020C60 
00e772 
¥16095 
04824 
1666¢e5 
o8e022 
a05ssas 
210568 
ebevd2 
605766 
Gdev20 


FFTS§93 
FFES9I 


FFOS9! 


FF4g95 


FFOSOS 


SUB 


SUB 


CLR 
MOV 
AOD 
ADD 
JSR 
MOV 
Sus 
TST8 
BNE 
ADD 
BLE 
SUB 
$US 
JSR 


BR 
Sus 


JSR 
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#4,L08P) JLEAVE ROOM FOR BLANKS ON RIGHT 


EEXP(SP)/UCSP) JFOECREASE D BY # OF DIGITS LEFT 


P(SP) PSUSPEND P SCALE 


EEXP (SP) eRS HF FORMAT 
D(SP),R5 
PCSP),RS5 
PC, RUDS® PROUND BY ADDING Sei QeeePodaf 
L(SP),RS 
O(SP),R5S 
TYPE (SP) 


FFSSs9 RJUMP IF NOT & CONVERSION 
EEXP(SP)»PC(SP) COMBINE P AND EXP 


FFSS$9 JUMP IF THERE IS NO INTEGER PART IN RES 
PCSP),R5 

#2,R5 ISIGN SLOT I8 SeLeVeEuPe? 

PFC, 1SNS9 FINSERT SIGN AND CHECK WIOTH 
FF3S9 PJUMP TO INSERT JOLITS 

#3,R9 SIGN SLOT 16 SelLeDed 

PC, ISNSO 1GU INSERT SIGN ANO CHECK wWIOTH 
#'O,(R5)* PINSERT LEADING @ 

#',,(R5)* PINSERT 

RS,L¢S8P) IGRECK FIELD END 

FF339 PJUMP IF FIELD FULL 

#'2@,(R5)*% pPUT IN ANOTHER LEADING ZERO 
FF4S9 

L¢$P),R5 

D(SP),R5 

RS PLOCATION FOR , | 

RS,POINTCSP) REMEMBER ITS LOCATION 

P(SP) 


$OCO#,4 


166 
167 
168 
169 


170 


5622 
5624 
5626 
9692 
5606 
5642 
5644 
5646 


9656 
5656 


5662 
S664 


56728 
3674 
2782 
5704 


9710 
5712 


39716 


9722 
97244 


9796 


9734 


9742 
9746 
9732 
3756 
9760 
5762 


9706 
57/9 


$774 


ous 


wusvgl 
vdseoa 
166005 
guneee 
44767 
Ob0744 
145766 
oeue1e 
021467 
680438 
162766 
wugdad 
e2g024 
“vSdoo 
045766 
oeeees 
683706 
0166905 
vdae2e2 
066005 
“bared 
624767 
28a4dae 
vi6eas 
evaded 
166025 
etgvze 
0259093 
12566 
gueeae 
1666¢5 
ovaved 
e25ssas5 
004767 
wousss 
£04767 
2ueor6 
1666066 
C4uR20 
2d¢006 
0165485 
euad24 
116623 
weueys 
6166004 
“ededas 
wd2ve4 
a45404 
1127238 
02eG055 
0042 
112725 
woeadae 
112713 
CUeV6O 
102/64 
g2eaeie2 


FROSOS 


EFIS93 


EFES9I 


EXxPS95 
Exis9t 


EXJdS9% 


BGT 
Inc 
Sub 
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FFOSY 


RS 


FPOINT TO SLOT FUR FIRST NON@ZERO OIGIT 


P(SP),RS 


PC, 048589 


TYPELSP) 


ONESY 
EFESY 


#4,\,05P) 


RS 


P(SPF) 


FFES$Y 


O(SP),R5 


P(S5P),R5i 


PC,RUDSD 


L CSP) ,R5 


D(SP),R5 


RS} 


RS,PUINTCSP)) 


P(SP),R53 


RO} 
PC, 


ISN89 


PC,DUS$9 


P(SP),EEXP (SP) 


L(SP),RS 


TYPE*L (SP), (R3)« 
EEXP(SP)+k4 


Exrsy 


Ra 


#GO INSERT ALL DIGITS 


FALL THROUGH JF F FORMAT 
iGO FINISH E FORMAT 


SMAKE RUOM FOR E FIELD 


PROCESS AS F FMT & RETURN TO EFMTE 


BGET ROUNDING FaCTOR 
ALLOW FOR P SCALE 
1G0 WYSE IT 


PUINT TO SIGN SLOT 


POINT SLUT & Le0=} 
SAVE LOCATION FOR , 


SIGN SLOT 2 LalaPad 
GO CHECK WIDTH AND INSERT SIGN 


GU PROCESS Ach DIGITS 


PCURRECT EXPONENT FOR P 


PMOVE OUT E OR DO 


BJUMP IF EXPONENT POSITIVE 


FGET ABSOLUTE VALUE 


tn, (RS) 


Ex1$9 


a! 


7GRS)* 


FINSERT = 


PINSERT BLANK FOR + 


#'0,@R3 FCLEAR TENS DIGIT 


#13,9R4 FTEST FOR TENS 


$OCO%4 


199 
206 
201 
2a2 


buwd 
evveo 
6010 
bale 


6016 
Suge 


6026 
6752 
6usea 


6456 


6042 
6244 
6046 


b4O¥N 
6292 
6u24 
BYI6 
6064 


6264 


6a/7ea 
6e72 
6074 
6276 
640a 
612 
6104 
6106 
Silo 
6412 
6114 
6146 
6120 
6122 
b1244 
6426 
6490 


6192 


6154 


6156 
61442 
6446 


6156 
6152 


42422 
1w5e15 
wer77s 
w6e7ua 
“Vee47e2 
112463 
wands 
¥62/e0 
O2e01¥U 
01290 
“vleona 
012066 
QOAVUS 
012066 
Qeaveo 
022020 
WEG120 
“wsaen? 


v1d14> 
elneda 
Wiyudan 
wivaas 
024767 
24e08V 
“04767 
weansaa 
ee5904 
“4soad 
045902 
005901 
ypegouea 
@esoas 
20S9R2 
005901 
05904 
“62003 
“85202 
225901 
“e850 
062602 
OU5901 
Ba5Sa0 
262601 
“W059R¢ 
wegea? 


W12705 
C2A020 
004767 
020466 
010446 
019946 
014246 


Ex2g93 


ONES§YGE 


U 
; 
MB4SYE 


j 
; 
440898 


MoV 


UMP 
ROL 
RTS 


MACRU VROAR14 O7HSEP O72 11345 PALE Jade 


Exesy 

@RS PACCUMULATE TENS 
Ex3sy 

#72,%4 %FGET POSITIVE UNITS 


R4,144R3) PMUVE UNITS OUT 
(SP)*,R5 


(SP)*,R4 


(SP)*,6(9PF) IMUVE FLAG AND RETURN uP 


(SP)*,6(5P) 
(SP)*, (SP) + PFLUSM JUNK 


(SP) * FSET C BIT IF ERROR 
PU PRETURN TO CALLER 


MULTIPLY CUNIENTS OF RI pee R4 BY 974, 
ANY QVERFLOW GUES INTO RO, 


MOY 
MOV 
MOY 
MOV 
JSR 


JSR 


ADC 
AOC 
ADL 
AOC 
ADU 
AoC 
AOC 
AOC 
ADC 
AQD 
ADC 
AoC 
AOC 
ADD 
ADC 
AOC 
ADD 
AOC 
RTS 


MOV 
JSR 


MOV 


MOY 
MOV 


Ri,w(SP) pS/ aX axexs4 
Re,e (SP) 

mS,e (SP) 

Ka,m (SP) 

PC,RITS9 IxX/2 


PC,RITSY X74 
R4 PROUND 

RS 

R2 

RY 

(9P)*,R4 

Rd 


PC BRETURN TQ CALLER 


WLG ORS FMULTIPLY RleegRh4 DY 4/5 
PC,RAITSY 
R4,~*(SP) 


R3,"(SP) 
R2,e(SP) 


SDCO@4 MACRO VRC4914 B7MSEPm72 11049 PALE {de 


247 6354 410146 MOV Ri,w(SP) 

248 6156 w@4767 M51898 JSR PC,RITS9 
vude4dse2 

249 6162 644767 JSR PC,RLITS9 
000446 

25@ 6156 wi2/ou MOV W2,RO 
ovedne 

251 6172 004767 MBSes9t JS PC,RITS9 
0¥a436 

252 6176 066004 Aoo 6(3SP),R4 

28406 

255 6202 wO5508 ADC RS 

254 6204 205502 AOC R@ 

255 62406 ovS501 AOC RY 

286 621@ 2666¢3$ AOD 4(SP),R3 
oeeee4d 

287 6214 wvs5ae AOC R2 

258 6216 2855e1 AOC Ri 

259 6222 w66692 ADO 2¢SP),R2 
etabe2 

260 0224 025541 ADC Ri 

261 6226 261601 AOD @SP,R4 

262 C298 425508 OEC R@ 

263 62382 wd3857 BGT M9289 

264 O254 285505 OEC RS 

265 6256 48334? BGT M3139 

266 6244 4627906 ADD #8,,59P %JFLUSH MULTIPLIER 
20a01e 

267 6944 080207 RTS PC 

268 , 

269 } MULTIPLY THE CONTENTS OF RO 4,4, R44 BY 8, 

2708 } NO OVERFLOW 2S ANTICIPATED 

271 6246 810546 ML8s98 MOY R5,e(SP) 

272 ©28a 0127058 MQV #3,R9 
oogeas 

273 6294 86304 M8189 ASL R4 

274 6256 0261038 ROL RS 

275 6264 o86102 ROL R2 

276 6262 ubeial ROL R4 

277 6264 886120 ROL RO 

278 6266 485808 DEC RS 

279 6270 U83S71 SGT | M8189 

280 6272 viebas MOV (SP)*,R5 

283 6274 000207 RT8 PC 

262 6276 065726 ERKS9t TST (SP)* JPOP RETURN 

283 6300 016603 MOV 5(S#1,R3 pPOINT TQ FIELO BEGIN 
200026 

284 6304 816004 MOV (SP) ,R4 GET FIELD END +4 
“22024 

285 63120 108766 TSsTa TYPE (SP) PCRMECK IF END MODIFIED 
o8ob14 

286 6314 601402 BEG STS3# JNO, THIS IS F FORMAT 

287 6316 w627u4 ADD #4O,R4 SPUT BACK EXPONENT SPACE 
wegbad 

2688 6322 1127235 S$TSg9t MOVE #!'e,(R3)¢ PFILL FIELO WITH « 
vGeu52 


289 6326 v2asa4 CMP R3,R4 


800084 


290 
aa 


292 
298 
294 
295 
296 
297 
298 


299 
$30 


581 
322 
$08 
324 
$85 
306 
307 
328 


309 
$12 
re! 
312 


313 
314 


315 
316 
347 


348 
319 
328 
321 
322 
32s 
324 
325 
326 
327 
326 
329 
358 
331 
332 


S338 
534 


335 


S3%¢ 
638e 


6356 


6349 


6344 
6346 


$352 
6354 
6356 
6369 
6362 
6364 
6366 
637¢ 


6374 
6376 
6420 
6402 


6406 
6410 


6414 
6429 
6424 


645¢ 
6432 
64964 
64396 
6a4y 
6442 
0444 
8446 
6494 
6402 
6454 
6456 
oabg 
64602 
404 


647¢ 
6472 


6476 


103774 
205166 
aeaui14 
000631 


020927 
eeabed 
O83054 
010966 
200806 


003452. 


002452 
010046 
v10i46 
010246 
010946 
#10446 
612764 
1ge0a8 
BeSbde2 
vesaas 
veswged 
¥25366 
voee2e 
004411 
004767 
177922 
004767 
veoeia 
084767 
“soeie 
004767 
“vepen4 
000764 
YO5200 
ge2en4 
v@55a3 
~8650@ 
evhoeal 
GS26as 
o0s5a2 
evseal 
w626n2 
0e59a1 
06260) 
0259020 
v626a8 
w22708 
¥aa012 
On30a2 
“05266 
oeag1u 
020207 


USot 


RDF SOs 


ROUSE 


RUZSYE 


RUISSE 


8.0 
COM 


MACRO VRO4"44 Q7"SEPa72 11043 PAGE {de 


87859 SJUMP IF MORE TO GO 
TYPE CSP) PFLAG ERROR 
ONES? 


ROUND THE CONTENTS OF R@ sey R4 TO THE PRECISION 
SPECIFIED BY R5, 

THIS ROUTINE I8 SHORTER THAN THE TABLE THAT 
OTHERWISE WOWLD BE NEEDED, 


CMP 


BGT 
MOV 


BEQ 
BLT 
MOV 
MOV 
MQV 
MOV 
MOV 
MOY 


CLR 
CLR 
CLR 
DEC 


BEG 
JSR 


JSR 


JSR 
JSR 


BR 

CLR 
AOD 
AoC 
ADC 


AoC 


AOD 
AoC 
ADC 
ADD 
AOC 
ADO 
aoc 
ADD 
CMF 


BGT 
INC 


RTS 


R5,#20, 


RULS9 PJUMP TF NOT WORTH ROUNDING 
RS,BEXP#¥e2(SP) FSAVE ROUNDING PRECISION IN TEMP 


RUSS# 

RUISD 

RQ,=(SP) 
Ri,w#(SP) 
R2,e(SP) 
RS,e(8P) 
R4,e(8P) 
#igoeeo,R1 


PJUMP TF ROUND IS To LEADING DIGIT 
PJUMP TF NO ROUNDING TO DO 


JINSERT 05 


R2 
RS 
Ra 
BEXP*oe2910, (SP) FCOUNT PRECISION 
HJUMP IF DONE 
MULTIPLY BY 475 


RDOS$# 
PC, M4559 


PC,RITSS 
PC,RITS9 


PC, RITS9 JDIVIDE BY @ 


RDF SY }GO GHECK IF QONE WITH FACTOR 
RY 
(SP)*,R4 
R3 
R2 


Ri 
(SP)*,R3 
R2 


BADD FRACTION TO RND FACTOR 


R4 
(SP)*,R2 
R4 
(SP)*,R4 
Ri’ 


(SP)*,RO 
#10,7RQ 


PJUMP IF NO OVERFLOW 
PBUMP DECIMAL EXPONENT 


RULS9 
EEXP*2 (SP) 


PC PRETURN TO CALLER 


SDCOB4 


536 


337 
338 
359 
$42 
341 


342 
343 


344 
345 


346 
347 
348 


$49 
$58 
354 


552 
$53 
354 
355 
356 
—357 
358 


359 
362 


361 
562 


363 
364 


365 


366 
367 


368 
369 
378 


371 


$72 
373 
374 
375 
376 
377 


0580 


6504 


O56 


63512 
6314 


6529 
6522 


6526 
6892 
6552 
6556 
6549 
6542 


6646 
6559 


6552 


6564 
6579 


65/74 
6576 


6682 
6606 
6612 
6614 
0616 
6620 
6684 
6652 
6632 


6694 
6656 


262700 
eaaeeas 
080767 


24566 
weuese 
103407 
@26066 
esavar 
103002 
112745 
weeess 
ee5euS 
e00¢07 
006066 
woadee 
103657 
vO5RDS 
e2n566 
C2e830 
183683 
page? 


022720 
e0evie2 
263804 
112725 
GBGU61 
162706 
evadie 
o266e@5 
gvaeed 
001002 
112725 
020856 
o266e5 
veeee26 
1044143 
062702 
b8ae60 
140029 
veSeae 
084767 
177224 
004767 
177416 
080757 
000207 


ebgedi 
206001 


Cw ~w ~w w 


RUSSOS 


Isk$9% 
SPUS9E 


GSS95 


DGIS9! 


UG2595 


DGIS9E 


DIGSy9t 
U 


, 
RITS$93 


MACRO VR@4914 B7eSEPe72 111458 PAGE {de 


ADD #5,R0 FROUND MOST SIGNIFICANT DIGIT 
BR RU2S# 


INSERT A @ IF NECESSARY AND CHECK THAT THE FYELO 
I$ wIDE ENOQUWH TO CONTAIN THE RESULT, 


CMP R5,$"a42(SP) }COMPARE SIGN SLOT WITH FIELD BE 
BLO Spcs® JUMP IF IT MAY NOT FIT 

ROR a@*2(5P) ITEST SIGN 

Bcc 1SRS@ PFJUMP IP « 

MOVa #!e,ORS PINSERT © 

INC RS IPOINT TO LEAOING OIGIT SLOT 

RTS PC PRETURN 

ROR G¢2(3P) ITEST SIGN 

BCS ERRS9 JPJUMP JF IT'S » 'CAUSE THERE ISN'T ROOM 
INC RS PPOINT TO LEAQING DIGIT SLOT 

CMP RB,8*2(8P) 

BLO ERRS® JFJUMP IF NO ROOM FOR IT EITHER 

RTS PC 


EXTRACT LEADING DIGITS FROM RO ge, R4 AND FILL IN 
THE AREA STARTING AT THE ADDRESS IN RS AND 
BOUNDED BY THE MOUOTFIED FIELD END, 


CMP #10,9RO FCHECK IF OVERFLOW IN Rao 

BGT . DG1Ss9 PJUMP IF ONLY ONE DIGITS WORTH 
MOVE #'1, (R5)* POUTPUT OVERFLOW 

8uB #10,9R@ PCORRECT RO FOR NEXT DIGIT 

CMP POINT#2¢SP),R5 #CHECK FOR , SLOT 

BNE pease 

MOVA i!) GRS)* PINSERT THE » 

CMP Le2(9P),R5 CHECK ENO OF FIELD 
BLOS DIGS® JUMP IF DONE 

ADO w6a,8e PCONVERT TO aScrl 

MOVB RQ, (RS)¢ PPUT IT IN FIEkD 

CLR RQ 

JSR PC, M5489 PMULTIPLY FRACTION BY 5/4 
JSR PC,» MLOS9 yAND BY 8 

BR OGi$S®  %9GO CONVERT To ASCII 

RTS PC RETURN TO CALLER 

SHIFT THE CONTENTS OF Ri ge R4 RIGHT te 

CLC 

ROR RY 


SOCOZ4 MACRO VRU4914 B7HSEPR72 1145465 PAVE Ide 


378 6649 ywvseg2 ROR R2 
379 6642 “we6uds ROR RS 
388 66044 wub6be4 ROK R4 
384 6646 edg2a7 RTS PC 


382 2ENDC 


SOLGOS 


Gan BGR 


goas¢ 
WoHse 


5 WOO54 


GO6%6 
4660" 


YOb08 
Zoak/a 
UCb74 
26708 
Yo7v4 
AO71¢ 
60714 
40716 
40720 
YVO7e2 
d0724 


20726 
407356 


™= Sa S Be TR 


we SW ws ee Se SE ~S 


ovevad 
gaeueal 
vdeerue 
vbuvud 
gone0er4 
HBg6e5 
dvedes 
080007 
2eade’ 
veaeeal 
wdaute 
vBevad 


¥11746 OLOGIVE 
(80441 
0@5446 OLUGS 
01G546 Lovsiat 
¢165¢4 
oburze 
“vd2/ad 
Vbadid 
é12746 
147572 
W12746 
173721 
Cil2/7a4e 
C74ve7 
#127495 
15706} 
1627276 
eaaujgd 
Vlado 
614446 
0144646 
H14446 
eussas 
006516 
116666 


eTITLE 
a TF OF 


DLOG 


LOPYRIGHT 1971, 


0GLOBL 
a LFNOF 
oGLOBL 
eENDC 


Tee FORTRAN DLOG AND OLOG{@ FUNCTIUNS 


CALLING 
JSR 


RETURNS 


XZexre 
R{eEXI 
wR2=Ke2 
A$2X%3 
MARK 
m5eXS 
SPEX6 
PC8X7 
FYuEKY 
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SOLGU3 
CNUSie? 


VOBSA 


PRU 


DIWITAL EQUIPMENT CORPURATIOQN, 


DLUGrPLOLIG,SERRI 


MAYNARD, MASS 


SPOLSH,SADD,SSH0,EMLDO,S0V0rSIDs SPOPR4I 


SEGUENCEN 


R5,DL0G (OR DLUG14) 


A 
ARGUMENT ADORESS 


LNCARG) (OR LOGIB(ARG)) IN RA & RS, 


FRY 
ePpc,=(SFJ 
LOG$i¥ 


PGET be O4xX AG A FLAG 


(SP) SFLAG DLOG 
SAVE RETURN POINTER 


RS,e(SP) 
2(R5),Ka 


IGET ARG AWDRESS 


#B,,N4 FROINT TO LEAST SIGNIFICANT PART 


#167972,7(SP) 
#173721,7(SF) 
#871027,°(SP) 


H13S7061,°(9F) 


PPUSH #4/2*LN(2) 


W6,,5P FGET wORK OPACE 


#(KR4) 7 (OP) 
=(R4),=<(95F) 
e(R4),"(3F) 
w(k4) pw(3P) 
EKR$SL4 FJUMP IF 
@sP 
1(S5P),266(SP) 


GET ARG 


NOT POSITIVE 


GET EXPONENT 


SONLGbS 


51 
52 
38 
54 
55 
56 
57 
58 
ro] 
68 
61 
62 
63 
64 
65 


66 


G7 
63 
69 
7 
71 
72 


738 


74 


96756 


a6744 
065746 


go752 
@6756 
26702 
06766 
@6772 
@6776 
a7abe 
07006 
e7al2 
@7016 
v7 022 
07026 


07082 
a7ada 
272896 
4704 


“7 @42 
a7 Q44 
a7 946 
a7e5A 
e7a92 
Z7 084 
27096 
47008 
a7 E%2 
2/7g%e 
v7 "96 
47879 
asu72 
£7674 
47876 
4/408 
a7 162 
a7add 
07106 


2eeees 
VBddS2 
112766 
Beaead 
wbedal 
666016 
vi2746 
157145 
012746 
@$4774 
012746 
we2s63 
012746 
040865 
016046 
evadi6 
616646 
e8a016 
16646 
O2A816 
216646 
“GG816 
612746 
157145 
w12746 
0$1771 
012746 
“e256 
012746 
e4uees 
064467 
012612 
eee7ee! 
Qo7éejut 
@ee7ed! 
Cl2aie! 


UE72 46! 
Q2d7ea6t 
YiGlaot 
Vi7s76! 
Ge7144! 


OWLI6L AOI XPUSL ES 


ewa7ua!l 
Cieiaer 
oee7 ede 
16 ,as!t 
wuaradat 
wi6ldo! 
goareat 
016146! 
Ge@7eat 
olGidet 
dbe7eat 
16446! 
wdE7eaa! 


MOV8 
KOR 
MOV 
MOV 
MOV 
MQYV 
MQY 
MOV 
Mov 
MOV 
MOV 
MOV 
MOV 
MOV 
JSR 


ewORD 


e¥QRD 


awQOkQ 
eWORD 
edURD 
eWORO 


e4ORD 
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#20001 (SP) 
esp 
#157145," (3P) 
#231771,° (SP) 
#002963,°(SP) PPUSH L/2eROOT2 
#240065,°(SP) 
14.(9P),* (SP) PPUSH X 
14, (¢9P),°(SP) 
14,(5P),7(3P) 
14,(5P),"7(SP) 
#157145,°(SP) 


WO31771,°(SP) 


#002563," (SP) PUSH LsewROOT2 
#84@065,"(SF) 
R4,$POLSA ENTER POLISH MODE 


$S80.UP$14,$A00,80V0 GET (X=#ROOT2)/ 


P(X#ROQUT2) 


DUPSlu,LUPSI@ GET THREE COPIES 
$ML0 FSET uP POLYNOMIAL 

SPOUPK4 PPUP ¥ 

REGEIG 


SMLO+$ALU, SMLI?SADD, SMUD? SADD, SHLD, SADO 


SML Oe ALU, SMLID > GADD, SML Oe BADD 


BEXPAND POLYNOMIAL 


PTRANSFORM ARG TO (1/2,1) 


SULGQ3 MACHU VROG914 B7eSEPe72 14945 Pabe 15+ 


75 Q@711¢8 ob7232! eWURD SCLSIC,S10,PL2$312,8MLD0 IFGET LNC(EXP) 
@7112 016046! 
A7144 BO7a701 
7116 blelebt 


76 B71e8 bees ed! eWQORD SADDOPEXISLD ICUMBINE WITH FRACTION 
v7122 “b7S5121 
77 PANO CHECK IF DONE 
78 27124 Bi6l1aé6t eWORD SMLDAEXI SIG MULTIPLY BY LUGI@(CE) AND. RETURN 
o7426 wo7912! 

79 a7ide 262706 ERRSIO! ADL #24,°SP FPFLUSH JUNA 
O8uvse 

8A a71S4 834967 JSR RS,$ERR 
12046 

81 47140 wda@sua BR EROSi2 

B62 07142 oad 2BYTE 4 

83 27143 CR) eBYTE 3 

84 ; 

85 07144 “Wl2704 REWSIVE MOV #CONS{048,,R4 PPOINT TO COEFFICIENTS 
007450! 

86 87199 0127205 MUV 47,R9 SEVEN CONSTANTS 
08eeo7 

87 O/7194 Cde4age BR $TC$10 

8&8 27:56 219546 STKgi2@ti MOV R3,2(S8P) 

#9 87168 610266 MOV R2,a(SP) 

9@ a7192 wlelas6 MOV Ri,e(SP) PUSH Y 

91 G7304 2180646 MOV Rd,e(SP) 

92 u/iSe vidéos STLSIBI MOV #(R4),=(9P) PUSH COEFFICIENT 

95 @7170 014446 Mov #(R4),=(5P) 

94 w7i72 0144aa6 MOV e(R4),"(5P) 

95 67174 B14446 MOV o(R4),9(9P) 

96 v7176 6e@sda5 DEC RS FCQUNT CONSTANTS 

GF a720e BYSS65 BGT STK$ig 

9a u72e2 wi27n4 MOV MXPD3S10,R4 SET UP RETURN TO LIST 
ve7e54! 

99 @7206 C8G134 JMP @(R4) 6 

104 ; 

431 7210 @12666 urPdie@s MOV (SP)*,220 (SP) MOVE ITtm YO WORK SPACE 
UOAW26 

142 7214 012666 MOV (3P)%,220(SP) 
0209026 

103 7222 v12666 MOV (SP)*,22¢e (SP) 
wdav26 

144 7224 012666 MOV (SP)*,220 (SP) 
608026 

125 723u eegisa JMP @(R4) + 

igo ; 

147 7282 008046 SCLSiVs CLR = (SP) 

108 7254 1560146 Biss 12,(3P),¢SP JGET EXPONENT 
40G014 

129 72440 162716 SU #2007 e@SP FREMOVE EXCESS 128 
vende 

118 7244 ¢é4i34 JMP @(R4I¢6 

Lik } 

1142 7296 016646 OUPSI¢! MOV 6(SP),+(9P) 
“vegeas 

113 7292 016646 MOV 6(SP),~(5F) POUPLICATE STACK ITEM 


evadas 


$DLGUS 


114 7256 3166546 


415 


116 
117 
118 


149 
120 
121 


122 
ias 
124 


125 
126 


127 
128 
129 


130 
isi 
132 
138 
134 
155 
136 
137 
138 
439 
140 
441 
142 
143 
144 
145 
146 
147 
148 
149 
192 
154 
152 
153 
154 
155 
156 
157 
158 
159 


7262 
7266 
7270 
72/4 
7300 
7304 
7312 
7312 


7316 
7328 


7324 
7332 
7394 


7349 
7342 
7344 
7346 
7394 
7392 
7354 
7396 


edeaas 
w16646 
ee) 
060154 


012746 
147972 
G12746 
173721 
012746 
71027 
wi2746 
Waad64 
Wbois4 


125966 
weeess 
oo2e4ii 
212746 
024162 
012746 
124467 
012746 
655730 
012746 
037736 
000134 
012600 
e126901 
012602 
Bi2seas 
vi2e05 
005726 
eevegs 


} ; 
PLe@sivi 


} 
Exisias 


LGTSI8t 
ERUSiION 


} 
VDLUGIOS 


DLOG8 
WOWSLEE 


Mov 
MOV 
JMP 
MoV 
MoV 
MOV 
MoV. 
UMP 
Deca 


BLT 
MOV 


MOV 
MOV 
MOV 


IMP 
MOV 
MOV 
MOV 
MOV 
MOV 
TST 
RTS 
eENDC 


e SFOF 
MOV 
BR 
CLR 
SETO 
SETI 
MOV 
00 
CFCC 
BLE 
STEXP 
FOCID 
MULD 
LOB XP 


LOW 
SUBD 
ADDO 
DIVO 
WOO 
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6(5P),2e(5P) 
6(SP),*(S5P) 
@(R4)+ 
#147972,° (SP) 
#173721," (SP) 
#0713027," (SP) pPUSH LN(2) 
#240061," (SP) 

@CRA) 4 

44.¢8P) FCHECK FOR ALOGI@ 


LGTSia NO, OUNE 

#0241362,°(SP) 

#1246967,°(SP) 

#355730,"°C(SP) PPUSH LOG10(E) 
#237736,° (SP) 

@(R4)6 

(SP)+,RO ;POP RESULT 

(SP)*,R4 

(SP)*,R2 

(SP)*,RS 

(3P)%,R6 PRESTORE RETURN 

(SP) ¢* IFLUSH FLAG 

RS 

FRY 

eoPC,Ra) GET @@@4Xx aS DLOGIa FLAG 
LOGSiar 
Ra} GET @ AS DLOG FLAG 

) DOUBLE PRECISION FP 
, | SHORT INTEGERS 
HFCOSIA,RQy POINTER TO CONSTANTS 
@2(R5),F 2) GET AKG 


ERRSIe} JUMP IF NOT POSITIVE 

F2,R1} GET EXPONENT OF ARGUMENT 
Ri,F Sy CONVERT TO FP FORM 

(RO)*, FSF SCALE FACTORSEXPONENT#LN (C2) 
WEF R) TRANSFORM ARG TO(1/2,1) 
F2,F iy 

(RO) oF 27 XmL/2"SQRT (2) 

(RBU)*,F i) Xl /2"SQRT (2) 

Fil, Fey wae (X@KOOT2) /(X*ROOT2) 

F2,F 13 


SOLG&S 


162 
161 
162 
163 
164 
165 
166 
467 
168 
169 
176 
171 
172 
173 
174 
179 
176 
177 
i78 
179 
180 
181 
182 
183 
184 
185 
186 
137 
488 
189 
198 
191 
492 
193 
194 
195 
196 
197 


198 


i199 
200 


201 


202 
205 


204 


2295 
206 


207 
208 


7$6@ 
7362 
7364 
7366 


737Q 
7372 
7374 
7376 


7400 
7402 
7464 
7466 


7aio 
7412 
7414 
7416 


wS7465 
106274 
157166 
174770 


037471 
072731 
187716 
447415 


US7948 
L145 
wouiot 
155465 


w370ee 
044430 
607886 
063062 


XPUSIBI 


U 
LGI8ias 


j 
ERR$ias 


] 
; 
} 
} 
FCOsias 


MULD 


MOV. 
LOU 
MULD 
DEC 
ADDO 
BGT 
MJLO 
ADLO 
ADDO 
TST 
BEG 
MULO 


sTuU 
MOV 
MQV 
MOV 
MOV 
RTS 


JSR 
RTS 
eBYTE 
eGYTE 
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Pi,riys 


H6,R1 
(RO)*, FO) 
Fl, Foy 
Rij 
(RO)*, FC) 
XPOSI@) 
F2,F 0) 
(RO)*, Fas 
F3,FO; 
R4) 
LGTS$ia; 
(CROJ 0 FO) 


FO,@w(8P)) 
(SP)*,RO) 
(SP)*,Ri7 
(9P)*,R2P 
C5P)*,R3) 
RSs 


R3,SERR} 
RS) 

4 

$ 


Yu wee? 


COUNT CONSTANTS FOR POLYNOMIAL 
INITIALIZE ACCUMULATOR 


COUNT 

Fos@ yerd + C(I) 

LOUP 

FOte weFO = 1/2eLN(2) 

ADD SCALE FACTOR FOR EXPONENT 
TEST ODLOG{0 FLAG 

DLOGIO = DLOGeLUGIO(E) 


MOVE RESULT TO STACK 
AND TENCE TO R@,,,R3 


EXIT 


ERROR 4,8 


EXIT = NO STACK CLEANUP REQUIRED 


ORDER@DEPENOENT CONSTANTS FOR ROUTINE 
R@ POINTS AY CURRENT CONSTANT IN FP VERSION 


» WORD 
aWORD 


eWORD 
e WORD 
eENDC 
2 WORD 


»WORD 


aWURD 


eWORD 


e WORD 


eWNURD 


aWO0RD 


aWwORD 


240061,0710273 
17378@1,147572) 


040055, 002363) 
@31771,197145) 
037495,106270 


137196,174778 


@37471,072734 
157716,1471145 


037543,131158 
060101,195465 


057622,044436 


0273$06,¢55062 


WN (C2) 


1/2eSary7l2) 


$,16948212488 


By 1811136207967 


b62222388235352791 


1.28571 40915904849 
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209 7440 0S7714 e WORD 057714,1463144 9.40000 00012806045365 
74822 146514 

212 7424 153485¢ a WORD 15349¢4,168773 
7426 165/73 

211 } 

212 7aseo W4ubs2 eWURD 240292,125252 1,.66666060606635669894 
74$2 125252 

213 7494 125207 aWORL 125297,004648 


7456 0046483 


214 } 
215 7ada vdndae CONgiat ,wORD 040400,a287008 p2.0800a0R0200000261 


7442 odudad 


216 7444 vugdud e WORD 080200,000057 
7446 000057 
247 el FOF FRY 
2194 } MOKE ORDER@DEPENDENT CONSTANTS 
219 } 
220 2 WORD 157661,0710277 #S/2"LN(2) 
223 aWORD 178721,147572) 
222 | 
2e8 a WORD @37736,0957307 LOGIA(E) 
224 eWORD 124407,024162) 
225 2 ENDC 


226 eENOC 


SONTH2 


wWwO@Onoga GH 


47 45e 
a7 452 
“7454 
87496 


5 w7 ada 


27462 
274064 
27456 
47 a7@ 
a7a/7@ 
u7a74 


v750¢ 
a7502 


87506 
47512 
a7osi2 
w7514 
87516 
07820 
07522 


“7522 
W75e6 


¥7530 


veuded 
weed 
“sadad 
e8a0es 
edaene 
daa 
eeebus 
177524 
177516 
egvav 
YSU0R) 


212600 
ei2Sa% 
#12602 
012603 
010446 
¥19546 
vigaad 
406104 
1asee4 
voedes 
162704 
400274 
00204) 
v22704 
1777106 
ue2aas 
BUSURR 
025001 
vvsee? 
gusdus 
ganast 


wia4eas 
“22704 
177748 
wd2415 


SOUNTS 


SOUNTE 


C2esiis 


SHFSIL5 
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eTITLE SUNTH2 
eo lFOF CNOS1L4 


SOINT V8e2A 


eGLOBL SDINT 

COPYRIGHT 1974, VIGITAL EWUIPMENT CORP,, MAYNARD, MASS, 
OTS INTERNAL FUNGTION TO KINO THE INTEGER 

PaRT OF A DOUBLE PRECISION NUMBER, 

CALLED IN THE POLISH MODE, 


Raszy 

RL ent 

R2s%2 

KSexs 

Rania 

K58x%§ 

$P8%6 

MQ8177304 

ASHaL77316 

Faaxa 

Fiexi 

o LFOF FPU 

«WORD 17¢@@41 JFFSETO 

eWQRD 172426 F700 (SP)4,FO LOAD ARG 
awORD 171497,4 peMODO ONE,FQ@ JGET INTEGER PAR 
eWORD 1741446 JST Fi,e (SP) PUSH INTEGER 
JMP @CR4)* FRETURN TO CALLER 

eWORD 249260,070,0 FLOATING 1, 

eENDOC 

eIFNOF FPU 

MOV (8P)*,RG sPOP DOUBLE ARG 

MOV (SP)*,Ri 

MOV (3P)*,R2 

MOV (3P)*,R3 

MOV R4,e(SP) 

MOV R5,e(S8P) 

MOV RO,R4 GET EXPONENT 

ROL R4 

CLRB Ré 

SwAd R4 

§Ub W2700R4 FCONVERT TO wSHIFT CQUNT 

BGE ONESS¢ %FIUMP IF ARG MUST BE INTEGER ALREADY 
CMP #07 BrR4 

BLT SHFS31 FJUMP TO GET INTEGER PART 

CLR RY PANSWER IS @ 

CLR R4 

CLR R2 

CLR RS 

BR DNESIL 


eIFNDF EAE&MULDLY 
MOV R4,R5 PSaVE A COPY OF SHIFT COUNT 
CMP H#ab2a,R4 ICHECK LOW OR HIGH TRUNCATION 


BLT RUFSL4 


SON 


Tee2 


“7532 
87594 


27549 
47842 
07546 
#7546 
@789¢ 
07552 
@7554 
27596 
07869 
07662 
27564 
07566 
0757¢ 
07572 
27574 
07876 
27682 
@762 


004776 
062704 
eeauas 
via4es 
O060n8 
Be6Ug!1 
euseud 
002774 
e86301 
026188 
2052a5 
002774 
eoea7s4 
pvevge 
oe60es 
208204 
002774 
086583 
egeio2 
vusees 
@02774 


RRAGiis 


ASiSii8 


RORSL18 


ASLSI12 


ROiSiis 


RQ2USi18 


R20Siit 


BEG 
ADD 


MOV 
ROR 
ROR 
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C23$11 %§GO CLEAR LOW QRUER HALF 
#32,7R4 100 HIGH ORDER 

R4,R9 

R@ SHIFT OUT FRACTION BITS 
Ri 

R4 

RRiSig 

Ri ISHIFT IN O'S 

RO 

RS 

AS1L$i4 

CR23S$41 FG0 CLEAR LOW ORDER 

R2 MOVE OUT FRACTION BITS 
RS 

R4 JCQUNT LOOP 

RORS}4 

RS 

R2 

RS ICOUNT LOOP 

ASLSA14 

EAE 

aMQ,85 FPOINT TO MG 

MULDAVIEAE 

9320, IPCHECK FOR HIGH OR LOW OROER TRU 
R23831 FLOW 

C23811 JCLEAR LOW ORDER 

#32,0R4 THIGH ORDER PARTS 

MULOZV 

073004 FPASHC R4yRB PSHIFT OUT FRACTION 
R4 HSET TO SHIFT LEFT 
Q73Q04 FPASHE R4ARO BRING IN THE @'8 
EAE 

Ri,@%5 JRIGH ORDER TO aC,MQ 
R@,#(RS) 

R4,@*ASH PSHIFT RIGHT 

R4 

R4,@#ASH PSRIFT LEFT 
(R5)*,RY FRESULT TO REGS 
ORS, RY 

C238)$ G0 CLEAR LOw ORDER 
MULOJV 

@73204 FFASHC R4,R2 

R4 

273204 FPASHC R4:R2 JFSHIFT IN OBIS 
EAE 

R3,@R5 JLOW ORDER TO AC, MQ 
R2,a(R5) 

Rad, @FASh JOUMP BITS 

R4 

R4,@ASH IBKING IN @'S 
(R5)*,R2 FRESULT TO REGS 
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414i MOV @RS,R3 

112 aENOC 

115 eENOC 

114 7604 B126¢S ONESii# MOV (3P)*,RS 

115 7606 @12604 MQV (SP)4*,R4 

416 761¢@ 010546 MOV Kd, e (SP) PUSH RESULT 
117 76012 o14246 MOV R2,e(SP) 

418 7614 016146 MOV Ri,w($P) 

119 7616 vigkeé MOV RU, (SP) 

12@ 7629 wbaisa JMP @{R4)% FRETURN 
121 2ENDC 


{22 eENOC 
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i eTITLE SDR 
2 e IF OF CNOS1L2 
3 eGLUBL SUR, ERK 
4 } SDR Tm& VOUrPLE FRECISION TO MEAL CUNVERTER 
5 ' 
6 } $ok V¥aue2a 
7 H 
6 } COPYRIGHT $9714, WIGITAL EQUIPMENT CORP,., MAYNARD, MASS, 
f°) } ROUVO THE TOR STACK ITtmM TO REAL FURMAT, 
1a edaeo4 WORKS 
i eeaves A5aXS 
i2 weadud SPeX%6 
13 eeavea FOREX? 
14 a TFOF FPU 
15 $DMs eNORD {70ae, FRSETF 
16 sWORD 177426 FILOCOF (SP) 4,Fa HCONVERT ARG 
{7 eWORD 47a00@ FSCFKCC FGET CONDITION CODES 
18 ; sv.s OVigdi2 FIUMP IP OVERFLOW UN ROUND 
19 eNURD 174846 FISTF F@,=(SP) 
20 JmMP @(R4) 4) bai 
ai eENOC 
22 eIFNDF FPU 
23 87622 ¥6165 SORE ROL 4(SP) FROUND LOW ORDER PART 
geavu4 
24 27626 Bd5960 ADC 2(SP) 
geotae 
25 47682 %25516 ADC esp 
26 @7634 183426 BCS OVRS12 PIUMP IF OVERFLOW 
27 07636 182425 BVS OVRS$i2 
28 w764e 212666 ORisi2t MOV (SP)*,2(3P) MOVE HIGHEST URDER PART 
voeeae2 
av a7644a 0126066 MOV (3P)%,2(5P) IMUVE LOW URDER REAL 
geadeed 
3Q@ 27659 862134 JMP @(R4)@ FRETURN 
31 47652 222626 Ovesie: CMP (SP), (SPI + — «FFLUSH ARG 
32 v7654 B22626 CMP (SP)*, (SP)* 
33 eENOC 
34 87696 wadds67 Ovisi2s JSR R5,SERR FERRUR 3,26 
ol2i24 
35 87662 Bve4e1 OR OR2$12 
36 37664 ved eBYTE 3 
37 07605 a27 aBYTE 23, 
38 87666 85046 DResi2! CLR = (SP) PRETURN @, 
39 07670 005046 CLR = (SP) 


40 u7672 wdulsa JMP @(RAle 
; eENDC 
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i eTITLE SOSNb4 
2 ae lFOF CNO$i3 
$ ’ 
4 H DSINCS Va@Q4aA 
5 } 
6 p COPYRIGHT 1971, OIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS 
7 H 
8 
) eGLOBL USINeDCOS) 
12 elFNOP FPU 
ii eGhLIBL ADD SSHU,SMLO-+ S0VD,SDINT, SPOLSH, SPOPR4} 
ia eENOC 
is ) OSIN pcos THE DOUBLE PRECISION SIN AND COS 
14 } FUNCTIONS, 
re) ' CALLING SRUUENCES 
16 ' JSR R5,09IN COR DCOS) 
17 } BR A 
ia } 2WORD ARG ADORESS 
i9 pal 
20 } RETURNS SIN VRP COS OF ARG IN RB & RB, 
2\ wugaved Raete 
22 weevel Rie%i 
23 vdeuge R28X2 
24 evebes R5aXs 
25 wvedad Raaxd 
26 eaekes R58x5 
27 veered SP5X6 
28 e2o0e7 PCSx7 
29 veevad Fosxe 
36 eeeeas Fiexs 
$i vsedo?2 P2842 
$2 eeoves Fgaxs 
33 eIFNOF FPY 
34 87674 195466 OCOS! MOV RS,w(SP) PSAVE RETURN POINTER 
35 87676 216804 MOV 2(RB5I,R4 IGET ARGUMENT ADORESS 
weaege 
36 87722 B8846 CLR # (SP) MAKE ROOM FOR QUAURANT FLAG 
37 97764 616446 MQV 6(R4),2(9P) 
20oee6 
38 a7710 616446 MOV 4(R4) ,0 (SP) 
eaega 
39 07714 016446 MOV 2(R4),°(39P) SPUSH ARGUMENT 
20ede2 
40 27720 611446 MOV @R4,7 (SP) 
44 87722 012746 MOV #064522,° (SP) 
g6asn2 
42 87746 «12746 MOV #121041,° CSP) 
12104) 
43 27752 612746 MOV #207732,°(SP) JPUSH PI/2 
007732 
44 47796 012746 MOV #040911," (SP) 
240911 
45 07742 &v4467 JSR R4,$POLSH HENTER POLISH MOOE 
W11076 
46 07746 oba704! awORD SADDs SNCS13 ICOS( KX) aSIN(XoPI/2) 


a7734 2190208! 
47 47732 610846 LSEINE MOV R5,e(SP) PSAVE RETURN 
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46 o7754 wi6sa4 MOV 2(R5),R4 IGET ARGUMENT ADDRESS 
gugead ; 
49 O7760 vo5v46 CLR = (SP) PMAKE ROOM FOR QUADRANT FLAG 
SQ 7762 016446 MOV 6(R4),"(5P) 
ovavead 
81 07766 016446 MOV 4(R4),0(5P) 
veeead 
S2 a7772 816446 MOV 2(R4),=(SP) 
C8008 
S3 O7776 811446 MOV @R4,* (SP) PPUSH ARGUMENT 
54 $4008 626516 SNCS1SE ASL @sP CLEAR SIGN AND SAVE IT 
55 10982 806266 ROR @.03P) PIN QUADRANT FLAG 
eaeeie 
586 18086 e86816 ROR @SP 
$7 18010 012746 MOV #264522,°(SP) 
e64a3a2 
$88 1@@i4 012746 MOV #121041,°(SP) 
121041 ; 
59 1@@20 012746 MOV #207732, "9(SP) sPUSH QuPtT 
BU7732 
60 10924 212746 MOV #040711,°(SP) 
640744 
61 10039 204467 JSR R4,SPOLSH JENTER POLISH MODE 
814619 ; 
62 18094 12210! 2WORD $0VD IX/2PI 
63 18856 B10154! eWORD DUPS13 #2 COPTES 
64 149040 007480! 2WORD SDINT PINT(X/2P2) 
65 16942 000700! eWORD 8380 IFRACTCX/2P2) 
66 30244 019176! ewORD X4$45 PaePRACTCX/2PL) 
67 18046 10154! eWORD DUPSI3 #2 COPIES 
68 100590 287460! eWORD SOINT PINT C4PPRACT(X/2PT)) 
69 100682 218216! @ WORD QUDS3S ISAVE INT Cecnaeed 
7@ 1@054 o00702! eWwORD $880 PYAPFRACT(4*PRACT(X/2PI)) 
74 10056 gige24' eWORD QSTSi3\ JREOUCE Y TO (mired) 
72 18060 @1@154'GSE5138 eWwORD DUPSi3 #2 COPIES 
73 18062 wiois4! eWQROD OUPSIS 3 COPIES 
74 10064 016146! 2 WORD $MLD HYwy 
75 10066 017876! eWORD SPOPK4 JSAVE YoY 
76 182870 Biased aWORD PLYSI23 JFPUSH COEFFICIENTS 


77 14872 CI6L46IXPUSLSE WORD SMLDeSADD,3ML0-/9A00,SML0-S4D0,5ML0,3A00 
16074 0007204! 
10076 816146! 
12108 @8a7a4! 
10102 2161346! 
16164 007041 
16126 316146! 
1Giie Bby7ua! 
78 18il2 816146! oe WORD SMLO«¢S$AQ0U,SML0-SAD0,S5ML0,SA0D,5ML0,8AD00 
10114 e0o7e4! 
10416 016146! 
40120 Bveargar 
wide w16146! 
14124 Bee7edst 
16126 016146! 
10150 wuu7ee! 
79 10192 016146! eWORD $MLO Yer CyPyY) 
B82 141454 VI7576IPR4S138 WORD SPUPKR4 JPOP HIGH URDER RESULT 


$05 


81 
82 
83 
84 


83 
86 
87 
48 


89 
96 
91 


92 
93 
94 
965 
96 


97 
98 


99 
122 
iol 


182 
105 
104 


1205 
106 


i@7 
ias 
109 
11% 


ee | 


Nid 


101956 
1éi4a 
10142 
10144 


10152 
16192 


10194 
14168 
10164 
10179 
10174 
16176 
1@20¢ 
10202 


12206 
10210 


10214 
B216 
C222 
W224 


0259 
0292 


0256 
6242 
0242 
0244 
629¢ 
0294 
¥v296 
0259 
206 
Y27a 
0272 
0276 


838¢ 


Gigiea! 

BBS726 RTNSISE 
“o@2bKe2 
62702 
100022 
612695 
aeg2es 


RTISiss 


616646 
eoebes 
016646 
28006 
016646 
G2y0e6 
016646 
209806 
C2G134 
} 
OOS716 X48153 
OB14a8 
106266 
bY2801 
200134 


Oi2704 ZERSiS! 


Ziaigat 
020134 
} 
051666 Quusiss 
eeae2o 
620134 
' 
1@8766 QSTsist 
G2eb1e 
001445 
062716 
16@8@ae 
Gvhudo 
v¥5e46 
605046 
12746 
@4e2e0 
C4467 
0119728 
oea7adt 
gie2zeea! 
©127e@4 QSRs$iss 
wigeeat 
106266 Qyd$153 
OBOb11 
} 
103002 
062716 
1a20¢e8 
@0G134 Quisis? 


} 
212704 PLYsist 
vigasa! 


} 
QUPSiS! 


2wORD 
TST 
BGE 
AOD 


MOV 
RTS 


MOV 
MOV 
MOV 
MOV 
JMP 
TST 
BEQ 
INC 


JMP 
MOV 


JMP 
618 
JMP 
TST@ 


BEQ 
ADD 


CLR 
CLR 
CLR 
MOV 
JSR 
aWORD 
MOV 
ASRB 
BCC 
AOD 
JMP 


MOY 
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RTNS843 

(SP)°¢ 

RTisisS JJUMP 
#1800009,R8 
(SP)*,RS 

RD JBACK 


6CSP) , a (SP) 
6(hP),=(9P) 
6(SP),«(S5P) 
O(R4I¢ 
OSPF 
ZERSIS) 
i($P) 


@(R4)¢ 
#PRARIS, RG} 


OCR4) oe) 
@SF,36,(5P) 


@(R4) 6 

8,¢(8P) FTEST 
QL3si3 JUMP 
#10¢890,¢SP | 
e (SP) 

a (SP) 

# (SP) IPUSH 
#402600," (SP) 
R4,SFPOLSHA 
SADDr/ QSrKS13 
HQSERIS, NS 
9,(SP) ITEST 
QUTS$S3 § JUMP 


#102000, ¢SP 
@(R4) 6 


HCONS1350,,h4 


JPOP QUADRANT FLAG 


If ARGUMENT WaS + 
BSIN(#X) SeSIN(X) 


TO CALLER 
POUPLICATE STACK ITEM 


IPCHECK FOR @ FRACTION 
WUT NOw 
PGUADRUPLE STACK ITEM 


RETURN ZERO RESULT 
USE POLISH 
SAVE QUADRANT NUMBER 


QUADRANT 


IF FIRST QR THIRD Quad 
NEGATE STACK ITEM 


A FLUATING is 


FENTER POLISH 

PX, =X 

FPOINT BACK INTU LIST 
QUADRANT 


IF FIRST OR SECOND 
PNEGATE STACK ITEM 


PPUINT TO LIST OF COEFFICIENTS 


SOSNU4 


121 


122 
123 
124 
125 
126 
127 
128 
129 
132 
{34 
132 
1535 


134 
435 
136 
137 
4138 
139 
142 
141 
142 
143 
144 
445 
146 
147 
148 
149 
450 
i351 
152 
153 
154 
155 
456 
157 
158 
459 
168 
164 
162 
163 
164 
165 
166 
167 
168 
169 
172 
174 
172 
173 
174 
175 


2984 


83198 
@3i2 
O314 
OS516 
W320 
“$22 
034 
B326 
8359 
a352 
0384 
0356 


0342 


oila7us 


ACUI) | 


oeg4od 
12346 
v1v2466 
vivia6 
H1G046 
014446 
014446 
144468 
014446 
225305 
283966 
vi2704 
210072! 
0001354 


PyY2sisé 


Pyisist 


OcCUS! 


OSINS 


SNGSi3I 


POSS1S1 


Qissis 


’ 
OQ, 28158 


XPUSISE 


MOV 


BR 
MOV 
MOV 
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#94,85 ININE CONSTANTS 
PY1$13 

Rd,e (SP) 
R2,e (SP) 
Ri,w (SP) 
RO,w(SP) 
#(R4),"(5P) 
(R46) ,=(9P) 
m(R4),0(5P) 
© (R4),«(SP) 


JPUSH YoY 
PPUSH CONSTANT 


RS COUNT COEFFICIENTS 

PY2$13 

#XPDS13,R4 

@(R4) 4 

FRU 

} DOUBLE PRECISION FP 
@2(RO),F UP GET ARGUMENT 

PI28$13,F 07 COS (CX) aSIN(X4PI/2) 
SNCSI3) 

} DOUBLE PRECISION FP 
e2(R5),F UO) GET ARGUMENT 

} SHORT INTEGERS 
WFCOSLS, RG? POINTER TO CONSTANTS 

R4} SIGN FLAG@E + ARG 

} GET SIGN OF ARG 

PUSSI3S? 

R4) SIGN FLAGS » ARG 

Fa; REMOVE ARGUMENT SIGN 
(RO)*,F Ol X/2PI 

#1,A0F OF Fa® FRACT(X/2P1) 

RTNS$i3} EXIT ON @ FRACTION 
R4,09FO) Fou FRACT(4#FRACT(X/2PI) 
Fi,Riy QUADS INT (4eFRACT(X/2PI)) 
Rij 

Q1L38 33) JUMP IF FIRST OR THIR QUAD 
FO} 

Wi ,SeF Os Yul eX 

Ri} 
Qi2asis JUMP IF FIRST OR 2ND QUAD 
ee | Y & wy 

F2,Fe) ZaYue? 

Prise) COUNT OF CONSTANTS FOR POLYNOMIA 
(RB)*,F AI INITIALIZE ACCUMULATOR 
F2,F i) 

Ri} COUNT 

C(RO)*,F ii Fiis Zeri * CCT) 

XPO$13; LOOP 

Fi,FUy FOis YeFi 

Ra} TEST SIGN FLAS 
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176 BEG RTNSI3) 

177 NEGO Foy SIN(#X) 8 RSIN(X) 

178 RTNS13S8 STD FO,o(8P)) MOVE RESULT TO STACK 

179 MOV (SP)*,RO) ANU THENCE TO ROoeaRS 

182 MOV (SP)*, RY) 

164 MOV (SP)*,R2? 

182 MOV (8P)%,R3) 

183 ; KTS RS} EXIT 

184 ’ 

185 Pra@aiss ,WwORD @40311,007732) PI/2 

166 aWORD 12104%,¢54302) 

187 a | 

188 ] ORDERsDEPENDENT CONSTANTS 

189 ! 

192 FCUsSiSt WORD 240741,0077382) 2eP] 

i94 ee WORD 121041,054302) 

192 eENOC 

193 8344 226716 aWORD @26716,1067903 §e987061098j71 Enis 
0346 186763 

194 @35e0 0462877 2WORD 045277,146362 
0352 146962 

195 ! 

196 0394 139467 eWORD 130467,156273 $= .66843217206396Ea9 
@356 136478 

197 2360 1603054 e WORD 103054,323155 
362 123189 

198 i 

199 2364 032164 eWORD 232194,074687 $,.9692134872719023Ee7 
366 074657 

200 6370 947254 eWORD @47254,194742 
@372 154742 

21 j ; 

202 8374 133564 eWORD 1335601,101646 Pee SS9B8490R7 20869SEa5 
@376 181646 | 

203 Gato 167216 »WORD 167216,134015 
C402 194016 

204 § 

245 €484 835058 eWwORD 0550520,096052 Pel GO441LO47G60221F aS 
0406 236832 

206 0440 O413814 aWwORD O41214,163133 
442 1431314 

207 , 

208 Bala 136234 . eWORD 196253 ,0594546 24681 754135309643En2 
0416 064846 

209 6422 8714425 eWORD @71423,125024 
Qa422 125024 

218 ] 

211 6484 0372848 2eWORD @37243,0527485 be7 9692626246165 44F uf 
8426 032743 

212 #4380 235055 eWwQRD @35698,051557 
482 051557 

213 J 

214 0434 149045 »WURD 148045,056747 §=@.6489640975962462 
0436 856747 . 

215 0449 030455 eWORD 030455,171222 


0442 171222 
216 ’ 


SUSNQB4 MACRU VREAE14 B7MSEPH72 11944 PALE 184 


217 8444 w4edit CONsiss ,wORD 040321,007732 61.570796326794897 
0446 087732 

218 O490 1214461 s WORD 121241,2943a2 
0452 664522 

219 U 

220 eENOC 


$05088 


KC&anovwa Gwe — 


10454 
10496 


14402 
14464 


5 10406 


18479 
10474 


18540 
1652 
{0504 


{uSia 
14632 
10614 
18810 
1052¢ 
14522 
1US24 


1b5da 
18582 
18504 
10536 


ddaKad 
66vbul 
ddudue 
o@adus 
wenana 
gebases 
evearea 
wogdat 
abused 
wdveaé 


aie5e6 
016505 
000882 
#11501 
18@467 
v@4472 
216802 
“wousee 
012746 
CQeWC4 
606eC1 
2060G2 
262701 
020180 
0225046 
008046 
wigeas 
@iaias 
008046 
u65646 
016946 
avabse 
011546 
oO5v46 
005046 
“wiadas 


== ™, Be we Se 


=~ Se ws TO TR TR Ts THR 


USURT! 


eTATLE 
alFor 


USGRT 


eGLOBL 
e LF NUF 
eGhOBL 
aE NDC 
§SOS0RT 
CALLING 
JSR 


RETURNS 


mSS40 
RY NAL 
R28K2 
R38%3 
RA4nXx4 
RS§ax5 
FOS%2 
Fieri 
Foux@ 
SPBXxé 
o IFNOF 
MOV 
MOV 


MOV 
BME 
BEQ 
MOV 


MOV 


ASR 
ROR 
ADD 
CLR 
CLR 
MOV 
MOV 
CLR 
CLR 
MOV 


MOV 
CLR 
CLE 
MOV 


MACRO VR@A"14 G7eSEP—72 11845 PAGE 19 


$08003 
CNDS$14 


VOBGIA 


COPYRIWHT 1971, DIGITAR EGUIPMENT CORPORATION, MAYNARU,MASS 


DSGRT,SERRY 
FPU 
SAUD+ $OVD,SPOLSHY 


THE VOUBLE PRECISION SQUARE ROOT FUNCTION 
SEQUENCES 

R35,SVSQRT 

A 


DSQRI IN RB = RI, 


FRU 
RS,=(SP) 
20RS),R5 IGET ARGUMENT ADDRESS 


@RS,Ri IGET HIGH ORDER ARGUMENT 
ERR$14 JERROR IF ARGUMENT NEGATIVE 
ZERS14 %PFAST EXIT IF ZERO 

2¢(RS5),R2 


w4,e(5P) PPUSH ITERATION COUNT 


RI JFORM INITIAL ESTIMATE 
R2 
w20100,Ki 


= (SP) 

= (SP) PUSE ONLY FIGH ORDER PARTS FIRST 
R2,0(SP) 

Ri,e(SP) P'CAUSE ADU AND OIVIDE ARE 
w(8P) PRASTER THAT WAY 

= (SP) 

2(R5),*(9P) 


PRS," (SP) 
*(SP) 

# (SP) 
R2,"° (SP) 


$D9083 


58 
54 


55 


56 
57 


58 
59 


60 
61 


62 
63 


64 
65 


66 


105409 
18542 


14546 
18559 
10852 
10554 


12669 


18564 
18556 


18572 
10576 


16602 
18684 


10619 
18644 
1@620 


10624 
10626 
1063¢ 
10692 
10694 
16656 
18649 
10642 
10644 


1065¢ 
14692 
18693 
10654 
10696 
18266y 
10662 
10664 


o1e146 


04407 LUPSI4s 


011476 

12240! 
poa7e4at 
wivsset 


162716 UPLSi«! 


goeene 
B05966 
Bege4e 
w6i4e0 
B16846 
weedae 
016540 
oeoeud 
016646 
pogewee 
011546 
216646 
v2aKi6 
216646 
veevie 
016646 
aeoure 
016646 
e2eei6 
009746 


@i26a8 OUTSias 


vizoel 
212602 
0120085 
v08726 


012525 RINSIAE 


aegeos 


UB4567 ERRSL45 


014336 
gea77s 
ee4 
a4 


QU50CA ZENSLAE 


G@O5004 
woSvve 
Cesvas 
200765 


’ 


’ 
DSURTI 


MOV 
JSR 


eWORD 


SUB 
Dec 


BEQ 
MOV 


MOV 
MOV 


MOV 
MOV 


MOV 
MOV 
MOV 


BR 

MOV 
MOV 
MOV 
MOV 
TST 
MOV 
RTS 
JSR 


BR 
eBYTE 
eBYTE 
CLR 
CLLR 
CLR 
CLR 
BR 


eENDC 


el FOF 
MOV 
MOV 
BMI 
BEQ 
MOV 
ASR 
KOR 
ADD 
CLR 
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Ri,elSP) 

R4,$P0LS4 _ gENTER POLISH MUOE 
$DVO+S$ADU,UPLE14 PCX/EeE) 
@20070SP P(X/E*E)/2 


6.(3P) ICOUNT OOP 


OUTS$i4 
6(R5),# (SP) 


4(R5),"(SP) 


2(R5),«(SP) FUSE LOW ORDER PARTS 
@R5,°7 (SP) ;TOO FROM NOW ON 
14,(5P),* (SP) 


44, (9P),°7(SP) 
14, (9P),* (SP) 
14. (9P),° (SP) 


LWPS34 %FGQO FOR ANOTHER ITERATION 
(SP)*, RE 1GET RESULT INTO R@eRS 
(SP)*,R1 

(SP)*,R2 

(SP) *,RS 

(sP)* IPOP ITERATION CUUNTER 
CSP)%,RS5 

RS RETURN TO CALLER 

R5,S8ERR TERROR 4,4. 


RTNSL4 
4 

4 

RQ 

Ri 

R2 

R3 
RINSL4° 


FRU 

2(R5),R4) GET ARGUMENT ADDRESS 
@R4, RL) GET HIGH ORDER ARGUMENT 
ERR$14 JFERROR IF ARGUMENY NEGATIVE 
ZERSL4 FFAST EXIT IF ZERO 

2(R4],R25 

Ri PFORM INITIAL ESTIMATE 

R2 

#22100,R1 

= (SP) 


$0S8085 


97 

98 

99 

128 
101 
12 
185 
104 
105 
106 
107 
108 
109 
11@ 
iit 
112 
i343 
114 
115 
116 
417 
116 
119 
120 
121 
122 
123 
124 
125 
126 
427 
128 
129 
138 


} 
LUPSI48 


} 
ERAg143 


ZERSI4E 


CLR 
MOV 
MOV 
MOV 
SETO 
LOO 
LOD 


LOO 
LOD 
DIVO 
ADLO 
DEC 
DIVD 
BGT 


STD 
MOV 
MOV 
MOV 
MOV 
RTS 


JSR 
RTS 
eSYTE 
aBYTE 
CLR 
GLA 
CLR 
CLR 
RTS 
2eENOC 
eENDC 
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= (SP) PUSE ONLY MIGH ORDER PARTS FIRST 


R2,e(SP) 
Rt ,=(SP) 
aa,Rep 


j 
(SP)*,FOs 
oR4,F2) 


FO,Fiy 
F2,F 2; 
Fi, Fe) 
Fi,Rby 
RO} 
#2.0,FO) 
LUPSi4) 


Fé, e(SP)? 
(3P)*,RoOs 
(SP)%,R1) 
(SP)*,R2) 
(3P)*,R3) 
RS) 


R5S,SGRR) 
RS} 

4 

4 

ROY 

Ri} 

Ra) 

R3y 

RS) 


P'CAUSE ADU ANO OIVIODE ARE 
ITERATION COUNT 

DOWBLE PRECISION FP 

GET INITIAL ESTIMATE 

GET x 


EaEt 

x 

X/E 

X/EeE 

COUNT 
E'e(x/EeE)/2 
LOOP 


MOVE RESULT TO STACK 


ANU TRENCE TQ RBeaekS 


ERROR 4,4 


SDTNOS 


OON OOD GD & 


46606 
146746 
14672 
10674 
yuo/s 
16702 
1U7¢02 
1G704 
12726 
1¥v71¢a 
10712 


edo0aea 
Bdeeal 
veeevee 
eeeves 
200604 
Bwdeaved 
o4a0ud 
oeadad 
Bsagegt 
eandne 
wounded 
weaves 
eeakes 


Gie346 
“esv46 
OY5046 
BG5¢46 
0e50a6 
Yeseas 
CU5t46 
e@vseae 
Oe5e46 
gebuaé 
@jeaeed 


eTLTLE UTS 
olPOF CNGEls 
j 
i VaeTan Vdd Se 
' 
b GUPYRIGHT £975, QIGITAL EQUIPMENT 
} 
eGLOBL OATAN,DATANG) 
eIlFNDF FPYU 
eGhLORL 
eENDC 


wwe GW Ww ee we “ss = we Ww Ge Se TB GE Ge GS ~R Ce FW 


DalaNng’ 


MACK VROOrLd CPRSEPR? 2S $154s PALE ge. 


CURPURATION, 


MAYNARD) ,MASS 


SAUO+SSBD,SMLDe $OVD,SPOLSHs SPOPRGY 


TRE FORTRAN DATAN AND DATAN2 FUNCTIONS 
CALLING SEQUENCE FOR DATANE 


JSR 
BR 
2 WORD 


RETURNS 


CALLING 
JSR 


RS,DATAN 


A 


ARGUMENT ADDRESS 


AXCTANCANG) IN R@ AND Rho 


SEQUENCE FOR DATAN@E 
RS,DATANG 


A 


ARGUMENT 4 ADDRESS 
ARGUMENT 2 ADORESS 


RETURNS ACRTAN(ARGI/ARG2) IN KO AND Rio 
IF ABSCARGS/ARG2) > 20424, THE RESULT I8 


IF ARG2 <@ THE RESULT 18 AKCTAN(CARGI/ARG2) + 


SIGN(CARG1) #P1/2, 
SIGNCARGL) Pl, 
RQSXQ 

Riext 

R25Xx2 

MSSXS 

R4nxra 

R58%5 

SPEX6 

PASxa 

Fisxy 

F25%2 

F3axs 

4844 

F5axD 

ea lFNDF FRU 

MOV RS,alSP) 
CLR a( sr) 
CLk =(SPR) 
Cun =(SF) 
CLM (Shy 
Cum =(SF) 
Che # (SP) 
CLR =(SP) 
CLK e(SF} 
Cur = (OF) 
ey etmr),R4 


FCLEAR 


CLEAR WATANZ BIAS 


ICLEAR 


SIGN FLAG 


QUAWRANT OY RS 


IGET FIRST 


RG ADURESS 


SDTNOS 


62 
6S 


84 
85 
86 
67 
8a 


89 


92 
91 


14716 
{0722 
{4726 


10752 
10734 
16796 


14742 
18746 
10752 


10756 
18769 
{8762 
18704 
10766 
1077@ 
18772 
12774 
14776 
11002 
11402 


11066 
11012 


1844 
1016 
1220 


> es ee 


{iged 
1126 


11as4 


11042 


11892 


11g56 


Li¢ee 


Liv6a 


11a72 
11074 


dQovge 
016446 
woaeee 
016446 
| 
216446 
weAvge2 
044446 
011680 
016504 
veges 
216446 
voeea6 
216446 
agoead 
016446 
28002 
011446 
@11601 
001445 
006500 
108002 
edasaa 
oe6sal 
196001 
Beadsel 
160100 
g227a08 
@20a072 
202433 
004467 
210630 
wizeio! 
814020! 
2es7738 
22ane4 
02022 
012766 
adaoii 
600026 
012766 
6877382 
g@eeee2 
wi2766 
124041 
wenoed 
e12766 
veoddal 
wvee26 
“05775 
nvaeee 
uezgend 
“wees h6 
1@aeee@ 
bdetad 
08746 
wtadad 


DIVSi56 


UPLSIS! 


ATCS15S8 
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4 {R4) 7” (3P) 


2(R4),<(5P) HGET FIRST ARG 
@R4, 8 (SP) 

oaP,N2 PARGL TO RY 

4(R5),RG IGET SECUND ARG ADDRESS 


6(R4),e(9P) 

4(R4),©(3P) 

2(R4),0(9P) IGET SECOND ARG 
@R 4,8 (SP) 


@SP,R{ JFARG2 TO R1 
INFS15  #JUMP IF DENOMINATOR 18 @ 


Rv IGET ABS VAL ARG) 
Re IGET EXPONENT 

R@ 

Ri 

R4 IGET EXPONENT ARG 
Ri 


R1,R® IGET EXPONENT OIFFERENCE 
#56,9R@ JCHECK MAGNITUDE 


INFS35 PTREAT AS INFINITY 
R4,SPOLSH 


SOVD/UPLS15 IGET ARGS/ARG 

@4(RO) PIF ARG2 >6, BIAS 8G 

ATES15 JIF ARG2<G, BIAS®SIGN(ARG1) PI 
#260511,36,(SP) FPS 

#2237732,38,.(5P) 

#121041,¢20, (SP) 


#054501,22,(5P) 


@2(R5) FITEST AWG) 
ATESI5 
wigverd, 16,(SP) FeP] 


@SP SET CUDES 
AT1i$18 JJOIN MAIN ROUTINE 


SDT 


92 
93 
94 


99 


NOS 


11076 
11102 
11146 
iiile2 
11116 
1iie2 


11126 
Llise 


L194 


1196 
1149 
1142 
1144 
1146 
115¢ 
1192 
11946 
1156 
1196 
1162 


1166 
1172 
1176 
1202 
12904 
1206 
1212 
1216 
1222 
1224 
1226 


1252 
1254 


1242 
1242 


1246 
1259 


662706 INFalot ADD 


eaavad 
bi27e0 
vaasit 
G12701 
v27732 
12702 
121041 
wie7asd 
604504 
005778 
YbAbve 
632002 
¢62708 
1208e0 
twaeaS 


w19946 
066446 
045046 
205046 
0o5v46 
veds¥4a5 
085046 
¥050466 
vd5046 
Q@usvao 
016544 
evade? 
16446 
wuudas 
616446 
geagaa 
616446 
geudee 
¥11446 
Ce2en4 
062716 
164009 
005266 
COBvsB 
021627 
v4u2eaa 
193455 
GOSOL) 
005766 
vw2abee 
“e1ecs 
005766 
e4used 
£61009 
wo5766 
yeneeds 
001448 
vi2766 
1443544 
ere a) 


INRS1553 
U 
DATAN? 


ATAS151 


PLUSION 


GTisi5St 


MOV 
MOV 
MOV 
MOV 
TST 


BGE 
AoD 


RTS 


MOV 
CLR 
CLR 
CLR 
CLE 
CLR 
CLA 
CLR 
CLA 
CLa 
MOV 


MOV 
MOV 
MOV 


CMP 


BLO 
BGT 
TsT 


BNE 
TST 
BNE 
TST 


BEQ 
MOV 
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#36,9S5SP KFLUSH STACK 


HA4D911,R2 PANS # SIGN(ARGL) WPI/2 
#227732,R3 

#121041,R2 

#064901,R3 

@2(R5) IFTEST ARGI 

INRS18 JPJUMP IF #FI/2 
#100000,R2 pePI/2 

R5 FRETURN TO USER 

RS,= (SP) 

#(SP) ICLEAR SIGN FLAG 

(SP) ICLEAR ATAN2 BIAS 

# (SP) 

= (SP) 

(SP) 

= (SP) SCLEAR QUADRANT OLAS 

= (SP) 

# (SP) 

= (SP) 

2(R5),R4 IGET ARG ADDRESS 


6(R4),°(SP) 


4(R4) ,9 (SP) 


2(R4),0(9P) 


IGET LOW ORDER ARG 


@R4," (SP) GET HIGH ORDER 
PLUS15 #JUMP IF QUADRANT 1 OR § 
#100000,05P 1GET ABS VALUE 
24,(59P) JFLAG © 

esP,*4020u CHECK IF <4, 
LE1$35° PJUMP IF «}, 

GT1815 Jt, 

2(SP)  JCHECK LOW ORDER 

GTISi5 

a(SP) 

GT1915 

6 (SF) 

LE1S35 Jet, 


#140911,9, (SP) 


pePTse2 


SDTN@S 


132 1256 012766 


$4 


132 


135 
134 
135 
196 
137 
138 


139 
140 
141 
442 
143 
144 
145 
146 
147 
148 
149 
150 
154 
152 


1254 


1272 


1500 
1304 
1510 
1314 
1322 
1324 


1332 
15596 
1342 
1346 
1392 
1394 
4306 
1362 
1366 
1372 
1376 
1402 
1406 
i4i2 
1416 
1422 


1424 
1426 


1404 
1496 


007732 
o8B012 
012766 
121044 
G@ev14 
012766 
w6asal 
o6e016 
605566 
GOQ032 
016646 
200806 
016646 
o2aee6 
216646 
ge0aees 
216646 
eenea6 
212766 
w4gaae 
008810 
005266 
g0ov12 
225066 
O8Rb1 4 
008066 
000816 
004467 
210272 
042210! 
14956! 
016646 LEISiS! 
629006 
016646 
20e8a6 
216646 
o@geg6 
016646 
g2e006 
288066 
220030 
285066 
BOGH42 
005866 
v@aebiad 
205066 
20e@016 
021027 
379414 
103907 
181016 
026627 
aee0ae2 
030242 
101812 
1836801 


MOV 


MOV 


MOY 


OEC 
MOV 
MOV 
MOV 
MOV 
MOV 


CLR 


CLR 


CLR 
usr 
oe WORD 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
CLR 


CLR 
CMP 


BLO 
BHI 
CMP 


BHI 
BLO 
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WOR77SZ, 10, CSRY PATANCK)BPL/2@ATANCI/X) 
#121041,12, (SP) 
#064501,14,(8P) 


24,(5P) PADJUST SIGN 
6(8P),¢(5P) IMOVE ARG DOWN 
6(SP),0(3P) 

6(8P),=(9P) 

6CSP),«(SP) 

#40200,00(8P) JPINSERT 3, 


10. (SP) 

12, ¢3P) 

14, (5P) 

R4,SPOLSH ICOMPUTE 10/X 
SOVO/LEI945 

6(8P),0(SP) PMOVE ARG DOWN 
6(8P),©(SP) 

6(3P),#(5P) 

6(CGP),«(S5P) 

B.(SP) JINSERT A @, 

18, (SP) 

12, (SP) 

$4, (05P) 

OSP,"O37611  FTANCLS) 
LiSSi5 JUMP IF LESS THAN TAN(15) 


TNSSi5 PJUMP IF » 
2(SP),#050242 


TNSS15 
Lissis 


SDTNOS 


458 


159 
$608 
161 


162 
163 


164 
165 


i166 


1444 


1446 
145% 
1492 


140% 
1462 


14/79 
1476 
1504 
i512 
i514 
1529 
1524 
1598 
1594 
1549 
1944 
159¢@ 
1592 
1554 
1556 
150% 
1562 
1564 
1566 
1572 
15/6 
1602 
1606 
1612 
1614 


1616 
1622 


026027 
evaded 
1723560 
19485 
1823474 
“26027 
QUeeeZs 
YOdd61 
101479 
012766 
vanes 
weadid 
012766 
Case2l 
vubavte 
012766 
149958 
YbQa14 
wie7bo 
115454 
weneio 
1100 
2166a1 
edgvuue 
616022 
woeeed 
016609 
geauge 
W12746 
0625924 
612746 
a4ysa2 
012746 
134727 
012746 
1445355 
W1igs4ao 
wlweao 
wizia6 
@1@046 
045046 
yd5066 
g45u4ao 
012746 
e4neue 
“12746 
(02524 
6127406 
V4, on2 
12746 
131727 
212746 
e4n$45 
010946 
winddasd 
wiviao 
19046 


TNSG153 


CmP 


BHI 
BLO 
CMF 


BLOS 
MOV 


MOV 
MOV 
MOV 
MQV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
CLR 
MOV 
Mv 
MOV 
MOV 
MOV 
MOV 
MOV 


MOV 
MOV 
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4(SP), 4172366 


TNSSA5 
L15815 
O(SP),#055261 


Li1s$t5 


#040076,5, (SP) 


wA058224,40. (SP) 


#140953,12, (SP) 


#115454,44, (SP) 


PINSERT PI/6 


@SP,RG FARG TO REGS 


2(5P),R1 
4(SP),R2 

6 (SF) ,RS 
#0622924," (S9P) 
#244522," (SP) 
#1314727," (SP) 
#140935,7(5P) 
RS," (SP) 
R2,e(SF) 

Ri,e (SP) 

Rd, (SP) 

# (SP) 

m (SP) 

“(SP) PRUSH 
#42200,=(SP) 
#0602924,7(SP) 
#441902,°(SP) 
#131727,2 (SP) 
#444935," (SP) 
RS,alSP) 
R2,=4SP) 


Ri,<(SP) 
RB,# ISP) 


1. 


PPUSH 


PPUSH 


iPUSH 


pPUSH 


eRQOT 3 


ARG 


RUUTS 


ARG 


SUTNYS 


194 


192 
193 


194 
i95 


196 
197 


193 
199 
20% 
201 
202 
2as 
204 
289 
246 


207 
208 


2a9 


212 


212 
213 
214 
215 
216 
217 
218 
219 
220 
221 


1622 


1626 
lodag 
16982 
1604 
1696 
16044 
lowe 
1644 


16°¢ 
1694 


1669 
1602 
16004 
1606 
16/7 
16/2 
1674 
16/76 
1766 


1704 
1746 
17168 
1712 
1714 
41/16 
i7eo 
1722 
\724 
1726 
1742 
1792 
17354 
1756 
1746 
1742 
1744 
1740 
1/20 
1732 
1794 
1796 
1704 
17602 
1704 
1706 
177¢ 
17/72 
1774 


1776 


606467 
01ys416 
} 

016146! 
eou7oar 
0117701 
Cou7cur 
O1l2elol 
wi1odat 


WA1OG9 LYOS$1958 


416601 
HWAQUB2 
wilboee 
Caneua 
0166003 
edavucs 
0149846 
01¢246 
W1ialed 
010046 
wlysao 
¢Civ2eao 
018146 
gigdas 
0064467 
0077 40 
016146! 
217976! 
gi22d' 


CLOLEASIXPUSISE 


@va7aa' 
0161401 
ova7aa! 
0161461 
we@n7ual 
Wi6ido! 
wan7eat 
¥1614601 
vea7udat 
0161461 
wve7aat 
16140! 
d0a7"4! 
016140! 
2va794! 
wielao! 
oan/7oa! 
w@a7yat 
wigved! 
oda7aat 
017976! 
11774! 


05725 EXdgldi 


@129¢5 
vdaens 


} 
012666 UP$1953 


JSR 


e WORD 


hQV 


MQV 
MOV 
MOV 
MOV 
MOY 
JSR 


2WwORD 
aWNORD 


eWORD 


e WORD 


eWURD 


eWQRD 
Panera) 
ewORD 
eWORD 
ae WORD 
TST 
MOV 
RTS 


MOV 


MACRU VRO4"14 BO7eSERe72 111345 PAVE 20 


R4,$POLSA 


PTRANSFORM ARG 


CROOTS#X*1)/CROOTS +x) 
SMLO-e$SBU,UP$15,$S65D,$0V0,L15815 


@5P,N2 
2(SP),R1 


4(SF),R2 
O(SPI,RS 


Rd,pelSP) 
R@,e (SP) 
Ri, (SP) 
RW,=(SP) 
Rd,m (SP) 
RQ,e(SP) 
Ri,#(SP) 
RO,2(8P) 
Ra,SPOLSA 


IGET ARG 


GET THREE COPIES 


SMLO IGET ARGwed 


SPOPR4,PLYS15 


pSeT UP COGFFICIENTS 


SMLDr $400, 39ML0,8AD0,5ML0-$A00 


SMLOeSAD0,SMLO,SADU,SML 04 $400 


$MLD» $ADU,$ML0,$AD0,$MLO, $400 


$ADD PP CK) oO IF Kawy, P(xX)ePI/2 IF xm} 
SGN$15 FPAOJUST SIGN 

$ADD AOD ATAN2 BIAS 

$PQPNG sPOP RESULT TQ REGS 
Ex1$i5s 

(SP)* POP SIGN FLAG 

(SP)*,R5 

RS FRETURN TO USER 


(SP)*,220(5SP) 


pMOve STACK ITeMm uP 
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oeoues 
222 2082 012066 MOV (SP)*,220 (SP) 
. eenb2s 
223 2006 012666 MOV (SP)*,220 (SP) 
pU0026 
224 2012 212666 MOV (SP)%, 220 (SP) 
wead26 
225 2016 000134 JMP @(R4)¢ 
226 ’ 
227 2020 0127204 PLYSi58 MOV H#CUNS (508, ,R4 PPOINT TO COEFFICIENT TasLe 
vigeia! 
228 2424 012745 MOV a9,,%5 GET # OF CONSTANTS 
oe 
229 2050 2020404 BR PY1$i5 
238 2092 viusdd PY2S1938 MOV R$," (SP) 
231 2094 2ia2e46 MOV R2,=" (SP) 
232 2056 2101-46 MOV Ri,w(SP) PPUSH ARG 
233 2049 212046 MOV Rd, = (SP) 
234 2042 wi44a6 Pyigsi5s MOV w(R4) ,*(9P) FPUSH CONSTANT 
235 2044 014446 MOV #(R4),"(5P) 
236 2046 014446 MOV #(R4),e (SP) 
237 2090 v144946 MOV #(R4),2(3P) 
238 2092 9858a5 DEC RS PCQUNT 
239 2894 003866 BGT PY28$15 
248 2056 a12704 MOV #XPD915,R4 
Bisy7i2s 
241 2262 “00134 JMP @(R4) 6 
242 H 
243 2064 o¥5766 SGNg15! TST 16, (SP) ICHECK SIGN FLAG 
eeaved 
244 2070 061402 BEQ $61$35 
249 2072 262716 AOD #1g9000,¢SP NEGATE RESULT FOR (=3,0) & (1,1 
1aavae 
246 2076 BbOLS4 SGIsi5t JMP e(RA)e 
247 aENOC 
248 } 
249 al FOF FRU 
258 DaTAN28 SETO } SET OP mODE FOR FPU 
251 MOV 2(R5),R5) ADDRESS OF ARGI 
252 MOV 4(R5),R4) ADURESS UF ARG2 
253 MOV @ORS,RAS HIGH ORDER ARGI 
254 MOV .«- @R4, RG. HIGH ORDER ARG2 
255 . BEQ INF S153 JUMP LF DENOMINATOR Q@ 
256 ASL RO} 
257 CLR RQ} 
258 $wad ROy EXPONENT OF ARG1 
259 ASL Ri} 
260 CLKo Rij 
264 SwAs Ri) EXPONENT OF ARGQ 
262 Sus Ri, RO, GET EXPONENT DIFFERENCE 
263 CMP #58 ,7RO) CHECK MAGNITUDE 
264 BLT INFSI5S3 TREAT AS INFINITE 
266 LOO PIS19,F 33 INITIALIZE BIASaP] 
266 LOO ORS, Os GET ARGi 
267 CFCC 
268 SGE ALPS15) JUMP IF ARGI>Q 


269 NEGO a | BLASBSSIGN(ARG{) PI 


SDTN8S 


278 
271 
272 
273 
274 
275 
276 
277 
276 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
580 
Si 
382 
3035 
3O4 
585 
326 
307 
308 
$09 
$10 
Sii 
Si2 
$13 
gi4 
515 
316 
317 
316 
319 
$298 
32) 
522 
32s 
S24 
325 
326 


AqPsios 


AQMS1S5 


’ 
INF SiS! 


} 
DATANS 


ATISI55 


PLUSIOSN 


GTisios 


} 
LELSIS! 


' 
Li5$i58 


XPUS$158 


LOO 
CFCC 
BLT 
CuRD 
OIVO 
BR 


Loo 
TST 
BGE 
NEGD 
BR 


SETO 
CLRO 
LOD 
CLR 
CFCC 
STD 
CLRO 
BGE 
ABSD 
INC 
LOD 
CMPD 
CFCC 
BLE 
DEC 
DIVO 
LOD 
LOD 


$TD 
CLRO 
CMPO 
CFCC 
BGE 
LOD 
LOD 
MULO 
SUBO 
A000 
OIVvO 


LOD 
MULO 
MOV 
MOV 
LOD 
MULO 
DEC 
ADDO 
BGT 
MULO 
A000 
SUBD 
TST 


MACRU VR@4014 B7eSEP072 11849 PAVE 204 


@R4,F uy 


A2MSi5) 
PS) 
Fi, FO, 
ATiS153 


PI2$i5,F 49 
ORS] 
EXISi5) 
Fi) 
ExIsisy) 


J 
FS) 
@2(R9), FO) 
R4} 


PLUSI5) 
FO} 

Raj 
#1,00F 1} 
FO ,Piy 


LELSi5) 
Ras 

Fo,riy 
Fi,Fey 
PIQSI5,F 3) 


PS,F a) 
FS} 
TAISSiS,F Os 


LiSsi5; 
PI6S15,FS) 
FO,Fiy 
RTSSi5,F@) 
#1,07FO) 
RT3SI5,F i) 
Fi, Fey 


FO,Fa) 
FO,FQ, 


#FCOS15,RO) 


WG, Ris 
(RO>*,FL) 
FO,Fis 
Rijs 
(RO)%, Fil 


XPDSi5) LOOP 


F2,F i) 
F3,Fiy 
Fa,F is 
R4) 


GET ARG2 


IF ARG2>0, BIASaQ 
ARGI/ARG2, SET FLOAT CC 
JOIN MAIN ROUTINE 


KESULT®PSIGN(ARGI) #PI/2 
TEST ARGI 
oPl/2 
ePI/2 


SET DP MODE FOR FPU 
CLEAR ATAN2 BIAS 

GET ARGUMENT 

CLEAR SIGN FLAG 

GET SIGN OF ARGUMENT 
FSP®ATAN2 BIAS 

CLEAR QUADRANT BIAS 
JUMP IF GUADRANT {¢ OR 3 
ABS(X) 


i,v 
CHECK IF x4ai,@ 


Xei,2, ADJUST SIGN FLAG 

1,@/x 

ATAN(X) aPI/S2ZCATANCE/X) 
QUADRANT BIaSsPI/2 


FA8QUADRANT BIAS 
F3RO.0 
COMPARE TAN(15) 8 X 


Xa8 TAN(18$) 
F3ePl/6 


XwROOTSai,8 
X#ROOTS 
CX*ROOTS91.0)/(X#ROOTS) 


x 
Xow? 
POINTER TO POLYNOMIAL CONSTANTS 
COUNT OF COEFFICIENTS 
INITIALIZE ACCUMULATOR 


COUNT 
Fiie Fiw xX¥e2 # CCF) 


Fits Fiwk 

PI/6 OR 8,8 
P(X}eQuAO BIAS 
TEST SIGN FLAG 


SOTNOS 


$27 
$28 
329 
550 
$51 
$32 
333 
334 
335 
$36 
337 
$58 
339 
348 
341 
342 
o495 
344 
345 
346 
347 
548 
349 
$58 
354 
352 
$53 
354 


355 


356 
357 


358 


359 
360 


S614 


$62 
363 


$64 


365 
366 


367 


368 
369 


370 


574 


219 
2182 
2104 
2106 


Z2iie 
@il2 
2114 
2116 


2122 
2122 
2124 
2126 


21528 
2192 
2134 
2156 


214a 
2142 
2144 
2146 


2150 
2192 
2194 
2196 


637065 
150767 
162302 
163030 


157204 
143233 
CH40L6 
weeds 


037235 
e43ep2 
we7isa 
142446 


137272 
@25671 
116412 
£08636 


US7548 
107047 
V2goe5 
Be54e4 


137422 
u4adad 
w71955 
116151 


SGUG158 
} 
Exigsidi 


} 

} 
PITSy5s 
} 
PL2Zsi5i 


} 
Tq{5$i158 


; 
PIOSi5S 


! 
RTSSL5t 


FCUSIS! 


BEG 
NEGO 
ADUDD 
STD 
MOV 
MOV 
MOV 
MOV 
RTS 


ae WORD 
ewQORD 


eWORD 
2 WORD 


eWCRD 
aWOrD 


e WORD 
a WORD 
a WORD 
eWORD 
eENDC 
eWORD 


e WORD 


e WORD 


eWORD 


2wORD 


e WORD 


2 WORD 


aWOURD 


e 40RD 


eWORD 


eWORD 


sWwORD 
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SG1S15) 
Fi} 
FS,Fu3 


Fi,s(SP)/7 
(SP)*,RGI 
(SP)*,Ri? 
(SP)*,R2) 
(SP)*,R3) 
RS} 


Q40531,u07732) 
121041, 064301) 


B40311, 0077325 
121041,@5943a13 


@37611,090242) 
172306,085261) 


Q@40006,005221) 
140553,1154543 


040355,1517275 
Q41302,a625245 


— @37005,190707 


1962309,1532338 


157204,143233 


an4aie,aevais 


057295, 045002 


027194,142446 


187272, 025671 
116412,0655632 


@37343,107047 


G23625,025401 


137422,044444 


O74395,11 0151 


NO AUJUSTMENT 


NEGATE RESULT FOR (1,8) 801, 0NF) 


ATAN2 BIAS 


MOVE RESULT TO STACK 
AND TREN TU REGISTERS 


EXIT 

PI 

PI/2 
TAN(15) 


PI/6 


1,94438951971867 


1m, 86483199510303 


1,0767936896060 


Pm, S9O9097114191074 


o41111097898051048 


9 014285714102825545 


SOTN#S 


372 
373 


374 
378 


376 


377 
378 


37g 


dod 
$o1 


2109 
2102 
2104 
2106 


217% 
2172 
Zi/4 
2176 


ects 
e2ve 
2204 
2206 


ws75i4 
146344 
146224 
16565u 


137652 
125252 
12se5¢ 
1136@2 


G4ReG4 
BBueEY 
Begheuw 
2Qaesu 


; 


J 
CoNgloé 


aWwORD 


eWORD 


eWORD 


ewORD 


eWORV 


eWURD 


eENDOC 
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637514,146314 
146224,155650 


157652,125252 


125292113602 


B4n200,Keoare 


CHarer, CEBUHE 


¥,19999999998729448 


Pee SSSSSSSSSSSIZ9N9S0 


1, 999999999999999 


SOVDU5 


OOn ae kh GD = 


42212 
12212 
12214 
12216 
12220 
12222 
12224 
12226 


12252 
12254 
12256 


12242 
12244 


12259 
12292 
12256 


12264 
12262 


eeasae 
aOeaes 
evebued 
veadegs 
eenegd 
wegved 
odaveae 
ueeeo7 
veadag 
gvoeval 
edauie 
edaved 
ouaeee 


019446 
010946 
veS0aa 
vo5ue) 
eesega 
avs0as 
wesude 
066966 
eeeeie 
voesio 
008846 
¥85766 
VdAO1Le 
00152) 
156046 
wdveel 
wo1o26 
1560602 
“eed 
edesaed 
wen26t 
UBEWVAY 


22 t= Ts te Ge Ge ws Ge Ge Ge 


SDVUE 


$DVOE 


eTITLe 


eo TFOF 


eGLOBL 
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SOVDUS 
CNUS16 
SOVD?SERKA 


SOV) «*e THE DOUBLE OIVIDE ROUTINE 


$OVO 


VOOSA 


COPYRIGHT 1974,1972 DVIGITAL EQUIPMENT CORP., MAYNARD, MA 
CaLLEO IN THE POLISH MODE 

THE NUMERATON IS THE SECOND ITEM ON THE STACK 

AND THE DENOMINATOR IS ON TOP, 

TAKES THE QUOTIENT AND PUTS IT ON TOP 

OF THE STACK IN THEIR PLACE 


RSX 
Lea? SB! 
R28X2 
RK SEXS 
Raex4 
R58x5 
SPEX6 
PCEX7 
FaaXxa 
Fyexy 
Ded, 
Nej6, 
Qei6, 
a LFOF 
aWORO 
eWORD 
awORD 
2 WORD 
JMP 
eENOC 
a lFNOF 
MOV 
MOV 
CLR 
CLR 
CLR 
CLA 
CLR 
ASL 


ROL 
CLR 
TST 


BEG 
BISd 
BEG 
BISe8 
SwAB 


SEC 
ROR 


FRY 

179ak4 
172526 
172426 
174404 
174246 
@(R4)o 


ad 


1PSETD 
b1L00 
yL00 
POIVO 
1STO 


IGET OIVISUR 

IGET OIVIDEND 
IGET QUOTIENT 

1T0 STACK 


(SP) e,Fi 
(SP)*,FQ 
Fi,FQ 

Fara (SP) 


=e Se “es es 


FRU 
R4,e(SP) 
R5,° (SP) 
RQ 

Ri 

R2 

RS 

= (SP) 
Nepe2 (SP) PSHTFT NUMERATOR 
esp 

# (SP) 
UCSP)) 


1GET NUMERATOR SIGN 
CHECK FOR 8,0 DENOMINATOR 


JUMP TO ERROR EXIT 
IGET NUMERATOR EXPONENT 


OCHS16) 
N@1 COP) ,@SP 


ZERS16 FJUMP JF NUMERATUR IS ZERO 

N(SP),R@ 

R@ PLEFT JUSTIFY NUMERATOR FRACTION 
FINSERT NORMAL BIT 

R@ 


$OVD85 


54 
55 


56 
57 


58 


59 
60 


61 


62 
635 


64 


65 
66 


67 
668 


69 
78 


7 


72 


73 


74 


73 


76 


77 
78 
79 
8B 
81 


82 


12264 
12272 


12274 
12276 


123502 


12306 
12310 


123514 


12320 
12322 


12526 


12332 
12856 


123449 
12542 


12846 
123596 


12354 


123862 


123/7¢ 


12576 


12404 


12412 


12424 
12424 
{2450 
12454 
12449 


12444 


1566¢bv 
eevo2s 
156691 
Beas22 
“vwasal 
156001 
veeee2s 
196632 
000024 
bpeosoea 
156642 
Weev27 
15603 
204026 
6800085 
086566 
O8G01¥ 
045966 
gea0a2 
2e35004 
15664 
Veabit 
160416 
200566 
202010 
000861 
286066 
vwbO618 
1166066 
abeo1s 
QvSui1e 
116666 
edadie2 
200018 
116666 
¥8Q9015 
Yeov1Le 
116666 
20014 
o8eei1s 
116666 
w2o017 
660014 
116666 
209016 
BOG017 
10566 
evewis 
086666 
v2ee820 
005066 
eoas22 
005066 
weae2d 
220066 
O@2B10 
161042 


8ISb 
BISB 


SWAB 
BISs 


BYIS8 


SwAB 
B188 


BISA 


Swabs 
ASL 


ADC 


CLR 
81868 


SUB 
Swag 


SEC 
KOR 


MOVB 


MOVB 


MOVE 


MOVE 


MOVE 


MOVB 


CLR 
CLR 
CLA 
CuN 
CMP 


bHI 
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N@3 (SP) ,RB 
N@#2(SP),%1 


Ri 
N*§(9OP),R4 


N*4 (SP) ,"2 


Re 
N*7(5P),R2 


N*6 (SP) ,R3 


R$ 
OCSP) ISHIFT DENOMINATOR 


2(SP) IGET RESULT SIGN 


R4 
D+1(SP),R4 7GET DIVISOR EXPONENT 


R4,@9P SUBTRACT EXPONENTS 
OCSP) LEFT JUSTIFY DENOMINATOR 


PINSERT NORMAL Bly 
D(SP) 


De3(SP),0(SP) 

De*2(SP) ,V43 (SP) 
D*S5(5P),0+2(5P) 
Dea (SP) ,D45 (SP) 
D*7(SP),V#4(SP) 
0*6(5P),04%7(SP) 


D*6 (SP) 

Q(SP) PCLEAR QUOTIENT 

Q*2(SP) 

Q*4(SP) 

R@,0\SP) }COUMPARE HIGH NUM, AND OENe 


DLwSi6 JFJUMP IF DENOMINATUR LUw 


SOVDO5 MACRU VRG4e14 U7HSEP#72 L145 PALE 214 


63 12446 123446 BLU DHI$16 $FJUMP IF DENOMINATUR HIGH 
Q@4 124920 V2u166 CMP R4,0*2 (SP) SCUMPARE LUW ORDER PARTS 
va@yeie 
85 12454 141036 bel OLW336 
86 $2456 1ug442 oL0 bH1$16 
87 12462 a2v2o6 CMP R2,0U*4(SP) 
“OGe14 
88 12494 1d1d3Se Br DLwS$16 
89 12406 jusese 31,0 DRI1$16 
99 12478 w2e566 CmP R3,0%6 (SP) 
evevs6e 
91 12474 1614826 onl Diwsi6 
92 12476 821832 BNE ONI$16 
93 12800 vdSeis INC eSP bRUMP EXPONENT 
94 12502 wdSbed CLR R4 
95 12804 wte4s6s BR FLTS16 
96 12586 ol27e8 DCNSio8 MOV #1495,Ry PERROR Spd 
003405 
97 12512 svuudsas bR EC1$16 
98 32514 0182700 UNUSIOS MOV R4B09,RU FERKRGOR 4578 
“v4avus 
99 12520 wvd746 ECLgilo’ TST =(SP) FF AKG SIGN 
102 2522 604967 Eclgsio: JSK R5,SERRA 
087278 
104 2526 222626 ZEKsiO8 CMP (SP)*, (SP) + SFLUSH EAP AND SIGN 
142 2530 wesv66 CLR Q+00e4(SP) 
vogere 
183 2534 wasu66 CLR Q+294(SF) 
4@a616 
104 2542 905266 CLR Q*404(SP) 
oeuves 
125 25944 ywSe6s CLA G64 (SP) 
e8ee2e2 
106 2554 #8477 BR RINSL6 . 
187 2952 vdevad ULwslok ROR RO PRALVE DENOMINATUR (C82) 
108 2594 od60n1 ROW Ri TO ENSURE TRAT Nev 
109 2596 gveun2 ROK R2 
41@ 2502 dvovys ROR RS 
L144 2502 wt5216 INC esp FCOMPENSATE EXPONENT 
112 2564 012705 DHIiSior MOV #9,,R85 FO DO FIRST 9 QUOTIENT BITS 
uur 
115 25/70 004/67 JSR PC,OV¥4$10 
020176 ; 
1144 2576 ilu4oo0 MOVB R4,Q9 (SP) PS4VE ALL NIGH ORDER 2 FRACTION 
Oeau2d 
113 FEXCEPT NOXMAL BIT 
110 26402 wS7¢r5 TsT RS *St& IF OONE 
117 2602 @03v¥25 BNE FLi¢i6 /#YE&S-s REST OF NUMERATOR IS a 
118 2604 @12745 MOV #16Oe9R5 740 DO 46 MORE BITS 
Cded2d 
119 2610 04767 JSK PC,0V4$1° 
BYAlSo 
t2d 2614 61460 MOV R4,u*%2 (SP) 
vbgb22 
121 2620 wv57a5 Tst RS 
122 2622 Hb1815 BNE FLIs8lé 


125 2624 wl27¢s MOV M16.) kS 
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veZad2e 
124 2650 ¢04767 JSF PC,OY4S16 
v20136 
125 2634 wlu460 MOV R4,Qea(SP) 
yaud24 
126 2649 4d5745 TST RS 
127 2642 wdidno BNE FLISi6 
128 <044 wig/yus MOV w16,9°RS 
veared 
129 26299 004767 JSR FC,O0V{$16 
@02116 
t$u 2054 wdndel BR FLTS16 
id1 26096 @¢d50u4 FLISio# CL Ra ICLEAR LOwEST OCRUER QUOTIENT 
132 26604 012005 FLTSI165 MOV (3P)*,KS SPUSH UP EXPONENT 
133 2662 w6273a5 AOD #200,R5 Fao IN EXCESS 204 
ovgeud 
134 26606 #603712 BLE UNOSI6 FPUNDERFLOW 
155 2672 w22725 CMP #3777 R5 
owus77 
136 26/74 802438 BLT QVRSl6 FOVERFLOW 
137 2676 149966 MOVG R5,Q*%1e2(0SP) FINSERT EXPONENT IN RESLT 
2Gawvi17 
158 2702 g66020 SGVSLO$ KUR (SP)¢ PINSERT GQUUTIENT SIGN 
149 2744 @@6v66 ROR Q*0e4(SP) 
ovyesy4 
142 2712 sv6d60 wQR Qe2a4(SP) 
ganeie 
1441 27146 wd6wes kOR yedgu4 (SP) 
e@aeved 
142 2722 006024 KOR R4 
143 2722 885504 AoC R4 PROUND 
144 2724 4455966 ADC Qede4 (SP) 
a28ub2d 
145 27390 @053966 Aoc Qe2e4(SP) 
“4a016 
146 27354 450966 AOC QeGn4d (SP) 
@e@udi4 
147 2740 614466 MOV R4,0%6=4(5SP) PINSERT LOW ORDER FRACTION 
veudee 
148 2746 103426 BCS Ovisié 
149 2746 142495 BVS OV1316 
124 2758 ul2ono RTNSLOE MOV (8P)4,R5 
151 2792 vil26u4 MOV (SP)*,R4 
192 27594 ve27u6 AQD #8,,9P FFLUSH FIRST ARGUMENT 
“ubudia 
153 2794 vsvidse4 JMP @(R4)4 
154 27602 wuS746 UVlsles TST e (SP) PPAKE EXP 
155 2706 412774 OVRSLOS MOV H2005,RU JERRUM $74 
vdevads 
156 2770 6006538 bR ECL S16 
137 €772 av@de4 YvVISiI6s ASL ma PSAIFT QUOTIENT 
{od 2774 du6ses ASL ak) PSHIFT NUMERATOR 
159 27/6 ud6lo2d kOL R2 
{ou sevda ov6iel ROL RY 
161 Suee wveblad ROL RO 
162 Jedd 1803424 bCS GUS {OS PGUARANTEED TO GU 


1635 S406 w2eoar CMP D442 (SP) ,R4 FCOMPARE HIGH DIVISOR AND VIVIDE 
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164 
165 
166 


467 
468 
169 


17@ 
174 
172 


173 
174 
475 


176 
477 
178 
179 


{ea 


481 
162 


i183 
484 


185 
146 
187 
180 
189 
192 
on 
192 
193 
194 
195 
196 
197 


Soia 
soi4 
SO16 


3922 
3044 
9026 


$od2 
3034 
3036 


$042 
344 
3246 


3052 
3054 
3956 
3a8¢ 


3a64 
3Q66 
3a72 


$oa74 
3076 


3102 
9104 
$106 
$142 
Sii2 
$14 
3146 
3120 
3422 
3424 
3126 


OGaa12 
101,034 
143414 
226601 
goau44 
1vivse 
103440 
e26602 
peedisa 
101024 
103484 
226008 
e0ee20 
121020 
901422 
1666a3 
veesed 
0203846e2 
avseas 
225609 
166602 
200016 
ooseea4d 
evsooe 
poser) 
ge@g0ya 
wesegu 
166608 
g0ae1e 
go52e6 
206305 
203531 
802207 
gos2a4 
eeadei 
eessad 
205925 
283575 
026205 
008207 


GOSL6S 


NGUS168 
NQUSLOS 
Eoegsi6t 
EQisiGs 


RTOSI65 


NGOSI6 
GO$16 


De2e2(SP),R4 


NGOSI6 
60810 


PJUMP IF DIVISOR BIGGER 
WJUMP IF DIVISOR SMALLER 
ICHECK THE LOw ORDERS 


De4e2(SP),R2 


NGQS$16 
GOsi1s 


D+6e4(SP),R3 


NGOSL6 
NWDS136 


De6e2(SP),R3 


Ri 
R@ 


PJUMP IF NUMERATOR sDENOMINATOR 
IN®Ne@D 


De4e2(SP),R2 


De¥2e2(SP),R4 


R® 
D+de2(SP),RO 


FINSERT QUOTIENT BIT 
ICOUNT OOP 


PINSERT LAST 4 BIT IN QUOTIENT 
PFINISH OUT QUOTIENT with @'8 


PFLAG NO MORE NUMERATOR 
RETURN TO CALLER 
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{ eTITLE SDVIOS 
2 eo lFDF CNUSI7 
3 eGLOBL SDVIeSERR 
4 , SOVI weswmaTHE INTEGER DIVIDE ROUTINE 
5 ’ 
6 } SOVI VOGSA 
7 j 
8 i COPYRIGHT 1974, WIGITAL EQUIPMENT CORP. MAYNARD, MASS, 
9 } CALLED IN THE POLISH MODE WITH THE NUMERATOR AT 2(SP) 
1a H AND TRE DENOMINATOR @SP, 
11 j RETURNS Tee INTEGER QUOTIENT @SP, 
12 eee8au ROaxD 
13 a2@eeel Riexi 
14 veeear R2e%x2 
13 “vagevs R3axs 
16 vogees R4aaxa 
17 gegdeds RSX 
138 veegees S8Pax6é 
19 177304 MQaq{773504 
20 eIFNDF EAESMULDIY 
21 151450 885800 S$DOVIS CLR RG ICLEAR RESULT SIGN 
22 131392 @12621 MOV (SP)*,R4 PGET OENOMINATOR 
23 141546 @830038 8GT P4847 PJUMP IF DENOMINATOR PLUS 
24 1439156 081443 8EQ CHKS17 @FCAN'IT DIVIDE BY ZERO 
25 13142 o85200 INC RY INOTE @ 
26 13142 ea84e1 NEG Ri 
27 131344 wlgou3 P1878 = = MOV @8P,R3 IGET NUMERATOR 
28 13146 923003 BGT P2817 PIMP IF NUMERATOR PLUS 
29 15150 024434 BEQ ZERSI7 %$PFIUMP IF IT 18 ZERO 
$@ 19152 085200 ING RG SET RESULT SIGN 
34 19154 2854085 NEG RS 
32 13356 wia446 Pesi7i MOV R4,e(SP) 
33 161459 w1274a4 MOV #8,,%4 ISET FOR 8 ITERATIONS 
veee1e 
34 13194 605002 CLR Rg IGLEAR HIGH ORDER OIVIDEND 
35 15166 e@adas SWAB RY ITEST HIGH ORDER NUMERATOR 
36 13170 081402 BEQ DIVS17 FIUMP IF HIGH ORDER QUOTIENT IS @ 
37 13172 06004 ASL R4 PWE NEED ALL 16 ITERATIONS 
38 13174 aGasas SwaB R3 FUNDOO THE ABOVE SwAB 
39 13476 086503 OIVS178% ASL RS IDOUBLE DIVIDEND 
44 19200 w@6122 ROL R2 
41 i822 084405 BEG LUPSi17 JFJUMP IF NO CHANCE THIS TIME 
42 13204 veseus INC RS PASSUME IT WILL GOe INSERT QUOTIENT BIT 
43 13206 16¢@102 Sub R1,Re TRIAL STEP 
44 {3210 103002 BHIS LWPS37 TOK 
45 13212 a@6eive AoD K1,R2 POIVIOEND NOT BIG ENOUGH YET 
46 13214 oesses DEC R3 TAKE OUT GUOTIENT BIT 
47 18216 005304 LuUPSI78 DEC R4 
48 13222 w¥3560 BGI D1V$i7 GO AGAIN 
49 13222 e12604 MQY (SP)*,R4 
5g 132246 485403 NEw RS ITEST FOR NEGMAX 
51 18226 2ee2ee ASK RO IGET RESULT SIGN 
52 sede 103422 BCS P3817 JUMP IF 
5$ 13282 wO54a5 NEG R3 PANSWER IS POSITIVE 
54 138254 102404 BvS CHKS37 FJUMP IF ANSWER IS @NEGHAX 
55 15256 010316 P3S178 MOV R3,@5P FOUTPUT RESULT 


56 13249 wdals4 IMP @(R4)¢ PRETURN 
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57 13242 n0S016 ZERSi78 CLR 
58 13244 weoise 


59 


153246 


13252 
19294 
15255 


O04567 
U2E534 
408194 
eas 
ves 


SDVT! 


SOVI! 


CHKS478 


espe PRESULT IS @ 
J MP O(CR4)4 
aENOC 
$OVI FOR THE EAE 
e LFOF EAE 
MOV aMQ,RaQ FROINT TO MQ 
MOV CSP)¢%,R4 GET DIVISUR 
BEU CHKSA7 JJUMP IF DIVISION BY @ 
MOV (SP)*+,@RY POLVIDEND TO MG 
TST a(R) SKIP AC 
MOV Ri, (RO) POIVISOR TO OLV 
CMP (RQ) *%, (RO) pPOXNT TO MQ 
MOV @ORB,° (SP) GET GUOTIENT 
JMP @(CR4Je FRETURN TO USER 
eENOC 
$OVI FOR MUL/DIV 
oe LFOF MULOZV 
MOV 2¢SP),Ri GET Ow ORDER DIVIDEND 
eWORD Q206700 JIFSEX RQ EXTEND SIGN 
eWORD 673426 FIDIV (SP) %,Ro POIVIDE 
MOV R@,@SP JFPUSN QUOTIENT 
BCS CHKSi7 FJUMP Ie ERROR 
JMP @( RA) 
eENOC 
JSR R5,$ERR JERROR 3,5 
JMP @O(RA)« 
eBYTE 3 
e BYTE 5 
eENDC 


SOVROE 


COanaow fm GD - 


ia 


15296 
13260 
13262 
15264 
15266 
13270 


15274 
13276 
15300 


15364 
15566 


153512 
19314 


204008 
TE 
weeded 
209008 
Beee04 
gee0e5 
202006 
080007 
177904 
1773812 
177814 
177916 
oBG88e 
080801 
002010 
Ceoe14 
200014 


2129446 
018646 
B85880 
605621 
005046 
026566 
Q8G812 
686116 
265246 
066766 
0200190 
081456 
1566146 
v8eQ015 
d4454 
156600 


= “ese == Ge Ge Ge Ss WG ss Gs SS Ws 


SOVRS 


SOVRI 
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eTITLE sSOVROE 

a LFOFP CNOS18 

eGLOBL SOVRr SERRA 

SDVR ewe THE REAL DIVIDE ROUTINE 


SOVR VOBBA 
COPYRIGHT $971,1972 DIGITAL EQUIPMENT CORP,, MAYNARD, MA 


CALLED IN THE POLISH MODE 

THE NUMERATOR I8 THE SECOND ITEM ON THE STACK 
AND THE DENOMINATOR JS ON TOP, 

TAKES THE QUUTIENT ANO PUTS IT ON TOP 

OF THE STACK IN THEIR PLACE 


RQSKx@ 

Risxt 

R29x2 

RJexd 

RaUxd 

R5ax5 

SPS8X6 

PCaXx7 

MQ8177304 

NOR#4773132 

bSHOL7TIEL<E 

A8SHai77316 

FQaRXxe 

Fyext 

Oss, 

Nej2,. 

Gal2s 

a IFOF FRU 

eWORrD 17e90% JPSETF 

eWORO 172526 #FLOF (SP)4,Fi GET DOIVISOR 
e4ORD 172426 JILDF (SP)+,Fo IGET OIVIDEND 
eWORD 174404 JFIDIVF F1i-FO yotvioe 

ewORD 174946 JPSTF Fd,a(SP) PQUOTIENT TO STC 
IMP (R44 

eENOC 

eIFNDF FRY 

MOV R4,0(8F) 

MOV RS,el(SP) 

CLR RO 

CL Ri 

CLR = (SP) 

ASL Ne@e2(SP) PSHIFT NUMERATOR 

ROL @sP IGET NUMERATOR SIGN 

CLA ae (SP) 

1ST UCSPI} CHECK FOR 8,8 DENOMINATOR 
BEQ OCHS18) 

BISe N*1(5P),@SP PGET NUMERATOR EXPONENT 
BEQ ZERS18 %FJUMP IF NUMERATOUR IS ZERO 

B1Sa8 NC(SP),ROG 


SOVRO6E 


98 
99 


13520 
13822 
15324 
15526 


15392 


13396 
13349 
13342 
13344 


139354 
13954 


133568 
13362 
13364 


1357 
13372 
13374 
13376 


13482 
13486 


19419 
13412 


1344 
13416 
13420 
13422 
13424 


13452 
15452 
18454 


-145496 


15449 
15442 


100 3444 


Beuei4 
005900 
wse26s 
086880 
15660¢ 
00017 
19660) 
weeei16 
060901 
“vesvaa 
eAS8R3 
006066 
4000128 
045566 
GR2B0G2 
136602 
OOae1s 
160216 
¥85002 
156602 
200018 
6005e2 
08@261 
B860R2 
156682 
000815 
156603 
o8e812 
2029038 


Q20082 
103448 


121034 
820185 
1016352 
O81034 
wU5266 
POGeL4 
005216 
weseas 
eeaa4ads 


022026 
wOae1s 
005726 
012720 
484008 


ZERSI8S 


DENS$i8s 


RQ 
RB 
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ILEFT JUSTIFY NUMERATOR FRACTION 
FINSERT NORMAL BIT 


N¥3(9P),Ru 


N@2(5P),"1 


Ri 
RQ 
RS 
O(SP) 


2(SP) 


Dei (SP),R2 


PSHIFT DENOMINATOR 
IGET RESULT SIGN 
PGET DIVISUR EXPONENT 


R2,@9P SUBTRACT EXPONENTS 
R2 
O(SP),R2 PGET HIGH URDER FRACTION 
R2 
PINSERT NORMAL BIT 
R2 
OFSCSP),R2 
D*2(SP),R3 
RS 
EAE WMULOLY . 
JENSURE NUM, AND DENOM, # 
RO, 
Ri FLOW ORDER R1 ANU R3 ARE Q’ 
R2 
RS 
RO,Re ICOMPARE HIGH NUMERATOR AND DENOMINATOR 
DRIS18 $FFJUMP IF DENOMINATOR HIGH 
EAERMULDILV 
DEW$18 PIUMP IF DENOMINATUR LOW 
R4,RS ICOMPARE LOW ORDER PARTS 
OLwsia 
OMISls 
QacqsP) PQUOTIENT FRACTION I8 1 
esP }BUMP EXPONENT 
RS 
FLTS$i8 
EAE} MULDAV 
DLw8is FJUMP IF DENOMINATUR LOW OR SAME 
(SP)*,(SP)+ FLUSH EXP ANO SIGN 
ECisi6 
(SP)* iFLUSH EXP 
#4205,R¢ FERROR 378 


S0VRMB 


11 
102 
103 


ia4 
149 


1¥6 
127 


108 


$492 
9492 
3494 


3469 
5402 


$406 
34790 


$474 
35090 
S504 
9586 
95148 
5542 
3514 
5520 
$524 
5559 
5552 
$554 
3536 
3549 


3544 


o0a4a6 
05746 
v127¢0 
083008 
vegsn2 
012726 
0014205 
405726 
804967 
ot6522 
005066 
089819 
6635066 
020012 
600445 
266806 
6@6001i 
0e5216 


612704 
@00011 
004767 
eGaia4 
110566 
00o014 


0@57a4 
281492 
25005 
204404 
Bi2/u4 
000020 
634767 
280068 


Ovisiss 
OvVkSi68 


UNDS103 


ECUSISS 


EC1si183 


ULWSLBE 


OHISiat 


NTOSi6s 


DHISISS 


BR 
TST 
MOV 


BR 
MOV 


TST 
JSR 


CLR 
CLR 


BR 
ROR 
ROR 
INC 
a lPNOF 
MOV 


JSR 
MOVB 


TST 
BEQ 
CLR 
BR 

MOV 


JSR 


eENOC 
a lFOF 
CLE 
KOR 
ROR 
ROR 
eENDC 
e IPOF 
MOV 
MOV 
MOV 
MOY 
TST 
MOV 
MOV 
MOV 
TST 
ASR 
SuB 
DEC 
MOV 
CMP 
NEG 
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ECLS1i8 

= (SP) FAKE SIGN 

#5005,RO PERROR 396 

ECLS$18 

#1409,RU PERROR 5p3 

(SP) * JFLUSA SIGN 

R5,SCRRA 

QeGe4(SP) PRETURN © 

Qe2u4(SP) 

RTNS$i8 

RQ PRALVE NUMERATOR (C89) 

Ri FTO ENSURE THAT Nad 

eaP ICOMPENSATE EXPONENT 

EAEBMULOLYV 

#9,,%4 %$GO DO FIRST 9 QUOTIENT BITS 

PC,OViSi8 

RS,Q(SP) SAVE ALL AIGH ORDER @ FRACTION 
PEXCEPT NORMAL BIT 

Ré SEE IF DONE 

NTQ$18 JING, NUMERATOR NOT B 

R5 PALL THE REST OF THE QUOTIENT IS ZERO 

FLTS38 

#16,9R4 §G0 DO {6 MORE BITS 

PC,OVi8i9 

EAELMULOLY 

RS FENSURE LOW HALF DENOM, *& 

RO SCALE NUMERATOR FOR FIXED PT. OIVIDE 

Ri 

EAE 


#4Q,RK5 FPOINT TO MQ 
Ri,@K5 FNUMERATOR TO aCeMu 


R@,s(R5) 

R2,e(R5) 1(AeSeB)/C 
(x5)¢ PPOINT TO AC 

(R5)%,R1 KEEP REMAINDER 
(R5)%,K4 KEEP QUOTIENT 


R3,@%5 IGET OD 
© (R5) POINT TO MQ 


R\ SCALE R 

RL,w(R5) 1O*DeR 

@a ASN 

R2,e(R5) p(GeDeR)/C 
(R5)%, (RI) + ma 

@RS 
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148 
149 
150 
154 
152 
153 
154 
155 
486 
157 
156 
i509 
462 
161% 
162 
163 
164 
165 
166 
167 
166 
469 
172 
471 
172 
173 
174 
175 
176 
177 
178 


479 
168 


181 
182 


183 
164 


i385 
186 
{87 


488 


189 
$90 
194 
192 
193 
194 
195 
196 
197 
198 


3592 
$552 


3556 
$569 


5504 
53566 


9572 
9574 


3620 
3602 
9604 


96190 


S614 
3616 
9624 
3622 
9624 
$626 


563 
3692 
S654 


212604 
g627a4 
2eegaee 
was7at 
o22704 
200577 
222738 
112466 
gaaeis 
066026 
26066 
o8aeied 
086005 
wessas 
205566 
009012 
212966 
evevie 
163716 
192745 
0129u5 
eigded 
v22626 
obaisa 


406985 
226504 
026109 


NBTSiS88 


Neisiet 


FLTSi88 


SGNS168 


RTNSIBE 


OViISi6I 


MOV 
ADO 


#2, 04ASH yMULT BY 4 

R4,e(R5) $Q% (QeDeR) ¥$/C 

@HNOR INORMALIZE 

@HNOK, OSF rAPPLY TO EXPONENT 

#06, ORL SH PPOSITION NORMAL BIT 
(R5)¢+,Q(SP) STORE QUOTIENT 

@RS5, RS 

MULDIV 

R@,R4 INUMERATOR TO DIVIDEND 

Ri,RS 

071402 FF DIV R2-R4 PCAeSeB)/C 
R5,R} SAVE REMAINDER 

R4,R0 #SAVE QUOTIENT 

Q70403 Fy MUL R3pR4 IGET QeD 

Ri SCALE R 

Ri,R4 }OeDeR 

875427,01 yt ASHC #mi,R4  FSCALE 
0714402 FY) OlV R2—R4 GET (Q¥DeR)/C 
R4 1CReQ@eD)/E 

Q273427,014, Hn] ASHC W14,,R4 FUNSCALE 
RO,R4 1Q¢(RaGeD) *S/C 

07342744 nt ASHC #1,R4 PSHIFT 
NBIS$38 JICHECK FOR NORMAL SIT 

esp PCOMPENSATE EXPONENT 

NBTS$i8 GO AGAIN 

073487,27 SPASHC 488,R4 PALIGN FRACTION 
R4,Q(SPF) STORE HIGH ORDER 

(3P)%,R4 PUSH UP EXPONENT 

#200°R4 FADD IN EXCESS 288 

UNDS38 FUNDERFLOW 

#S77—RA 

QVR$i8 JOVERFLOW 

R4,0¢ {e2(SP) PINSERT KRXPONENT IN RESULT 
(SP)* FPINSERT QUOTIENT SIGN 

Q+dn4(SP) 

RS 

RS SROUNOD 

Q+0e4 (SP) 

R5S,ar?e-a(SP) PINSERT LOW ORVER FRACTION 
Ovisis 

Ovisis 

(3SP)%,RS5 

(SP)%,R4 

(SP)*, (SP) + FLUSH FIRST ARGUMENT 

O(RA)+ 

EAE&MULDAV 

RS SHIFT QUOTIENT 

Ri SHIFT NUMERATOR 

RO 


S$SOVROB 


199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
244 
212 
213 
214 
219 
216 
217 
218 
219 
228 
221 
222 


$656 
$649 
3642 
$644 
9646 
3692 
3692 
3654 
3656 
566Q 
5662 
5664 
$606 
3672 
3672 
5674 
3676 
$748 
3782 
3704 
5706 


103406 
020280 
181018 
103403 
o2e501 
101885 
661407 
168504 
oeséae 
160200 
005205 
OOS55a4 
BVSI6U 
20e207 
225205 
200401 
806505 
eessad 
003976 
205204 
069207 


GOSi183 


NGUS183 
NOUSI68 
Eoesisi 
BQUS1Gs 


RTSSis8s 


bcs 
CmP 
BHI 
Bi0 
CmP 
Bal 
BEG 
SUB 
Sac 
$uB 
INC 
DEC 
BGT 
RTS 
INC 
BR 
ASL 
DEC 
8GT 
INC 
RTS 
eENDC 
a ENO 
eENOC 


60819 
R2,RO 
NGOSiB 
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GUARANTEED TO GO 

COMPARE HIGH DIVISOR AND DIVIDEND 
PJUMP IF OIlVISOR BIGGER 

PJUMP IF DIVISOR SMALLER 

IPCHECK THE LOW ORDERS 


$JUMP IF NUMERATOR sQDENOMINATOR 
INaNa@O 


PINSERT GUOTIENT BIT 
ICOUNT LOOP 


PINSERT LAST 1 BIT IN QUOTIENT 
PFINTSH QUT QUOTIENT wITH a's 


PFLAG NO MORE NUMERATOR 
PRETURN TO CALLER 
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=e so OO™ BA GE & Ge 


13730 
135712 


135716 


15722 
13722 


15726 
1375¢ 
13732 


13736 
135740 
13742 


15746 


A3759 


13794 
13769 


bee2a8 
B8G001 
080802 
oveeas 
000804 
veeee5 
o20006 
202888 
288804 
oveve2 
oAebes 


19546 
e16Se4 
eoeepe2 
041400 


023004 
228027 
141662 
1014062 
220403 
020027 
0414968 
1601083 
Ce65a0 
020027 
043008 
109444 


162706 
008024 
062704 
0000128 
014446 


=e =e “EE Se Ge 


=m Ss ts 2 ee Ve ee 


DEXPE . 


OEXPS 


POSSI98 


SMTS193 


o TITLE 
eo LFOF 


DEXP 


eGLOBL 
a LFNDF 
eGLO8L 
a GNDOC 


SOXPOS 
CNOSI9 


VOOSA 


GOPYRIGHT 1971,1972 DIGITAL EQUIPMENT CORPORATION, MAYNARD, MAS 


DEXP, SERRA) 
FRY 
$A0D07S880,3ML0,90V0,810,802,SPO0L 3H, SPOPR4) 


THE FORTRAN DEXP FUNCTION 
CALLING SEQUENCES 


JSR 


RETURNS 


RQexa 
Ri eX 
R29x2 
KR3aKS 
Raexd 
RSexs 
SPexé 
FQsxe 
Fiaxs 
Fauxa 
F3axs 
a TFOF 
MOV 
eENDC 
a TFNDF 


MOV 


MOV 


MQV 
eENDC 
BGT 
CMP 


BHI 
BR 

CMP 
BHI 


ASL 
CMP 


BLO 
a TFNDF 
Sub 
ADO 


MOV 


RS,DEXP 

A 

ARGUMENT ADDRESS 
EwwARG JN RO = RS, 


FPU 

@2(RO), RO) GET HIGH ORDER ARG 

FPU 

RS,e(SP) SAVE RETURN 

QRS) ,R4 IGET ARG POINTER 
@R4,RG IGET HIGH ORDER ARG 

PO8S19 %FJUMP IF + 

R@,#141662 pARG 18 # 

ZERS19 «IF JUMP ITF ARG <8807 

SMTS$i9 PJUMP TO TEST SMALL MAGNITUDE ARG 
R2,#44660 

QOVRS1i9 %@PJUMP IF ARG >867 

RQ FOUMP SIGN 

RQ, #43000 

QNES19 FIUMP ITF ARG MAGNITUDE <2ve060 
FRU 


#22,°9SP GET WORK SPACE 
#B,,R4 FROINT TO LOW ORDER ARG 


=(R4),°(3P) PPUSH ARG 
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52 
53 
54 
55 


56 
57 


19762. 
19764 
13766 
13772 


135774 
14080 
14004 
14010 


14044 
14016 
14020 
14022 
14024 
14926 
14080 
14032 
14034 
14936 
14940 
14942 
14044 
149046 
14850 
14092 
14054 
14056 
14960 


14064 
14966 


14072 
14974 


14108 
141404 
14406 
143190 
14412 
4414 
14416 
14122 
14426 
141382 


14196 
14149 


014446 
014446 
014446 
012746 
013761 
612746 
024534 
pia746 
125073 
012746 
043270 
084467 
208638 
@16146) 
0144541 
817648! 
614344) 
016046! 
g0a7agr 
214062! 
014454! 
2176401 
2144¢2! 
216046! 
200700! 
014570! 
014484! 
B144ga 
016146) 
2173576! 
014116! 
032708 
242200 
000410 
812706 
O91004 
200402 
0127008 
202005 
004567 
0057142 
0658628 
00820} 
288002 
@eS0o3 
eeasals 
212746 
633945 
012746 
015948 
012746 
152405 
812746 
6420746 


010946 
010246 


ONES101 
OVRSi98 


ZERSI98 
GCLS194 


218498 


UPLSiI98. 


MOV 
MOV 
MOV 
MOV 


MOV 


MOV 


e(R4) , 0 (SP) 
@(R4),0(9P) 
e(R4),0(3P) 
#013764,9(SP) 
#024534,° (SP) 
#125073,°(SP) 
4#40270,0(8P) 


R4,SPOLSH. 


$3807016519 
DUPSi9,0UPS819 


SMLO DECE 


SPOPR4 
VFLSi9 
#492090,R0 


Zisie 
#1004,R2 


ECLS19 
#2800,RB 


RS, SERRA 


OUTSI9O 
HO33543,° (SP) 


#015945,°e(SP) 
#152405,°C(SP) 
#240746,°(SP) 


RS,=(3P) 
RZ, 0 (SP) 


yPUSH LOG2(E) 


JENTER POLISH MODE 


bYexe. 062 (8) 
PINT CX#LOG8 (ED) 
PZMINTCXPLOGZ(E)), Yee? Zazei, Yao 


109160 (X#L0G2(E) FLOAT (2)) 
b2 COPIES 


PSAVE INTEGER PART OF 2eey 
bEaOeINT (dD) 


10/16 
GET 3S COPIES 


FPOP Ewk TO REGS 
RESULT 28 1, 


PERROR 422 


PERROR 5,4 


PRESULT I8 @ 


PPUSH PBP70213505410844819083 


$OXx 


94 
95 
96 
97 


98 

99 

{22 
104 
102 
163 
1@4 
4@5 
126 
107 
168 


189 


POS 


141442 
14144 


14146 
14152 
14196 

4152 


4166 
4170 
ai72 
4174 


4176 
4202 
42066 
4212 


4216 


4222 
4224 
4226 
4250 
4252 
4204 
4256 
4249 
4242 
4244 
4246 
4250 


4254 


42°90 
4262 
4204 
4206 
4272 
4272 


4276 
4300 
a3v2 
A3a4 


4310 
4312 


610146 
012046 


012746 
153703 
012746 
153011 
012746 
113962 
¥12746 
v37154 


010946 
040246 
012146 
010046 


¥12746 
171042 
@12746 
074433 
012746 
1014232 
612746 
041246 


004467 

405422 

wea7aat 
iadyar 
16146) 
eea7aa! 
016146! 
044476! 
@0a7a4! 
014432! 
eee7ad' 
012210! 
oLaeser 


“42705 SCLsigs 


14954! 


C6265 ASKSIIS 


2000128 
1035012 
444546 
214546 
214546 
0214546 
224467 
005946 
C16146" 
014254! 
001405 
162705 
U@Ee1e 
000761 


126070 SCisios 


MOV 
MOV 


MQV 


MOV 


MAGRU VeRd4014 B7eSERPe72 {1140 PALE 244 
Ri,#(SP) 

ARB, =e (SP) 
#153723," (SP) 
MESSOLL, =" (SP) 
#113560,8(SP) 
#037154,° (SP) 
R3,=(SP) 

R2,a (SF) 
Ri,=(SP) 

R@,e (SP) 
#1714042,°(SP) 
#274433,° (SP) 
#104232,e(SP) 
#241246," (S§P) 


R4,$POL5" 
SADOeAUPSI9 
$MLOeSADU, SHLD 


TWCSI9 


$A0D/ ABPS1L9 


S3SBD0-/80VU 


SCLS19 


#ART251945,,R5 


8, (SF) 
NML S39 


#(R5),e(SP) 
#(R5),e(5P) 
© (R5),e(SP) 
w (RS), 9 (SP) 
R4,$POLSH 


SMLDP ASRS19 


SCiSig9 


ASRS19 


($P)*,Re 


IPUSH P1®,057761135831801928 


PPUSH Q8®20,8137711965230362973 


PAPEWESQ6G TO WORK SPACE 
PBPEw (EwER wry oP) 


POUPLICATE A AND B 


pA*B TO WORD SPACE 
CAB) / (Aad) 


PAPPLY SCALE FACTORS 


PPOINT TO FOWERS OF 2 


JUMP IF BIT IS UFF 


SPUSH 20” ((2#N) 00/16) 


PMULTIPLY BY ABOVE FACTOR AND TE 


PPOINT TO NEXT POWER OF 2 


PPOP RESULT 


S$OXPO5 


132 
iss 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 


146 
147 
148 


149 
152 
151 


152 
159 
{54 


155 
156 
157 
158 
199 
16 
161 
162 
163 
164 
165 
166 
167 
168 
169 
17@ 
171 
172 
i73 
174 


4314 
4316 
4$26 
4322 
4324 
4326 
430940 
4332 
43da 
4356 
4349 
4342 
4344 
4359 
4352 
4394 
436g 
4362 
4366 
437¢ 
4374 
4376 
4482 
4462 
4446 
4412 
4414 
4422 
4424 
4439 
4432 
4456 
4442 
4446 
4452 


4454 


12501 
012902 
e12603 
405726 
vi26a4 
eeesa4d 
105va4 
226204 
09aegu 
100053 
212505 
eseecs 


008775 
COR082 
662001 
085516 
011666 
0OB8S4 
200154 


062716 
O8ieeed 
vOBLs4 


162716 
0010880 
100001 
25016 
wars 


011666 
0AG032 
000154 


012666 
gag0s6 
Wi2666 
wooed 
212666 
weoeas 


612066 


029046 
601354 


012666 
486026 
012666 
woa026 
0125966 
60a626 
012666 
00ua26 
000154 


016646 
o0abe6 


Quisisvt 


’ 
ADWS191 


ARNS198 


} 
M1OSi98 


’ 
DiOSiss 


D6RSL9I 


} 
OSVS1i98 


} 
AUPSI9R 


} 
ABPSI9I 


} 
OUPS1I91 


MACRO VROG"14 B7aSEPa72 


MOV 
MOV 
MOV 
TST 
MOV 
SwAs 
CLR 
ASR 
ADD 
BMI 
MOV 
RTS 
TST 
BGE 
DEC 
MOV 
JMP 
ADD 
JMP 
Sus 
BPL 
CLR 
JMP 
MOV 
JMP 
MOV 
MOV 
MOV 
MOV 
JMP 
MOV 
MOV 


MOV 


MOV 
Imp 


MOV 


118495 PAGE 244 


PMAKE INTO EXPONENT MODIFIER 


OVERPLOW 


JPOP RETURN 


PSAVE 2 AS AN INTEGER 


pi6e STACK ITEM 


PA/1L6*STACK ITEM 


PIUMP IF NQ UNDERFLOW 


(3P)*,R} 

(SP)*,R2 

(3P)*,R3 

(aP)* PFLUSH 0 
(8P)*,R4 IGET £ 
Ra 

R4 

R4 

RG,RO PAPPLY TO RESULT 
OVRSi9 FJUMP IF 
(SP)*,R5 

R5 PRETURN TO USER 
e2(R5) FTEST Xx 

ARNSIO9 JFJUMP IF «+ 

esp 1ZeZe4 

@SP,26, (SP) 

@OCR4)¢ 

#1000,0S? 

@CR4)¢ 

#1200,eSP 

DERSI9 

ese PUNDERFLOWS@ 
oC Rade 


oSP,26, (SP) 
@O(R4)6 
C3P)%, 360 (SP) 
(SP)*, 382 (SP) 
(SP)*, 38s (SP) 
(8P)*,36s (SP) 
O(CRS)¢6 
(9P)*,220 (SP) 
(SP) *, 22s (SP) 
(SP)*,220 (SP) 
(SP)*,220(3P) 
OCR4)¢ 


6(SP),"(5P) 


PSAVE 0D AS AN INTEGER 


pA TO WORK SPACE 


PMOVE AB 10 WORD SPACE 


POUPLICATE STACK ITEM 


SOXPUS 


175 44600 016646 


176 
177 


178 
{79 
182 


18% 


182 
183 
184 
485 
186 
487 


188 


189 


198 


19% 
192 
i938 
4194 
195 
196 
197 
198 
i99 
202 
20% 
202 
203 
204 
205 
206 
2u7 
206 
209 
210 


aii. 


212 
215 
214 


4464 
4472 
4474 
4476 
4502 


4506 
4519 
4512 


4314 
43516 
4520 
4522 
45e4 
4526 
4554 
4552 
4534 
4596 
4549 
4542 
a544 
4546 
4590 
4692 


6885 
016646 
2de8e6 
216046 
220006 
200134 


812700 
UBae1e 
016646 
20e016 
0BS8Oe 
W307 4 
020154 


040265 
082563 
C9771 
1571445 
o4e23u 
0337628 
05e645 
134284 
C4ea2i18 
11271 
161752 
108727 
e4g205 
125303 
063714 
64a179$ 


’ 
TWOSIOS 
TwiSive 


RTSSi96 


} 
MqZOSios 


MOY 
MOV 
MOV 
JMP 
MOV 
MOV 
DEC 


BGT 
JMP 


eWORD 


eWORD 


WORD 


o WORD 


eENOC 


elFOF 
SETO 
SETI 
MOV 
LOD 
MODO 
$TCol 
TSToO 
Cree 
BGE 
AODO 
VEC 


MOOD 
STCOI 
DIVO 
LOO 
MULO 


Loo 
ADDO 
MULO 
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6(SP),«(5P) 
6(SP),=#(SP) 


@(R4)¢6 


#38,,%0 FEIGHT ITEMS 


14, (5P)," (SP) 


FOUPLICATE 2 OOUBLES 


RQ 

TWLS19 

@C(CRAI¢ 

240265,002365,831771,157149 p2vwi/2 
040290,093768,050615,19425) paewt/4 
@40213,182701,161752,105727 p20e1/8 
040205,125503,063714,844175 p2eei/16 
FRY 

} DOUBLE PRECISION FP 

j SHURT INTEGERS 

#FCQOSI9, RO) POINTER TO CONSTANTS 
@2(R5), Fae GET ARGUMENT 

(Rv) *,F2) F2GFRACT (CX*LOG2(E)) 
F3,R4) ZeINT(X#h062(E)) 

Fas. 

} 

M16$19 TEST F2 

HL ,G0F 23 MAKE FQ POSITIVE 

R4} AND AQJUST Zaz~4 
#16,0,F2) F2SFRACTCUGe(X*LOG2 (EI FLOAT (Z)) 
F3,RS) DsINnT C1Ow(,e, 
#16,0,F2! Eerk2/16 

F2,F Sy 

FS,FS, Ewe 

F3,F iy 

(RO)*,Fi) AskwE+0a 

(ROD*, FSI 


SOXPUS 


215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
258 
251 
252 
253 
254 
255 
256 
257 
258 
259 
262 
261 
262 
263 
264 
265 
266 
267 


} 
SCLSITE 
NMLSU98 


} 
SCisios 


J 
ONESi95 
OVNS198 


ZERSi98 
ECLSIOs 


713198 


CUSios 


= |= w ee we 


A000 
MULO 
LOD 

AodDO 
SUBD 
Q1IV’ 
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(R22*,F SI 

F2,F 99 BelEwEwP) * PO)wE 
Fi,F@) 

F3,FC) Aeb 

F3,F iy Aub 

Fi,FOy CA*B) / (ae) 

RS) SHIFT 0 

NMLS19) 
(RO)*,FO) MULTIPLY BY ROOT OF 2 
SCLSI97 

SCi8ios 

wO,,ROs POINT TQ NEXT ROOT OF 2 
SCLSi03 

Foa,e(8P)) MOVE RESULT TO STACK 
(SP)*,R@? ANO THENCE TO RO,,,RS 
(3P)*,Ri) 

(3P)*,R2) 

CAP) %, ROI 

R4} CONVERT 2 TO EXPONENT MODIFIER 
R4) 

Ra) 

R4, RO} APPLY TO RESULT 
OVRSio7 JUMP IF OVERFLOW 

RS) Exit 

#40280,R8 PRRSULT 18 1, 

z1819 

#1004,RB8 PERROR 472 

ECLSis 

#2005,RQ SERROR 574 

R5,SCRRA 

RB TREGULT IS @ 

Ri 

Ra 

RS 

RS) EXIT 


ORDER@DEPENDENT CONSTANTS 
RB POINTS AT NEXT CONSTANT IN FRU VERSION 


eWORD 


eWORD | 


eWORD 
eWORD 
eWORD 


-@ WORD 


e WORD 
eWORD 
eENOC 
eENOC 


40278,1325073,824534,013761) 


LOG2(E) 


044246,38092392,07446353,171042) Q2 
@97194,133360,153011,153705) Pi 
040746, 152405,015345,033545) Pa 


040205,125303,063714,044375) 
@40213,182701,161752,105727) 
240250,093760,050615,134253) 
040205,002365,831771, 157145) 


2001/16 
2wei/8 
ae0i/4 
2ee{/2 


SEXPR4 


14554 


14552 
14562 
14564 


14872 
14572 
14874 


14689 


. 14602 


14604 
14612 
14612 
14614 
14616 
44622 


14626 
14632 


20AGae 
w@eees 
eeabed 


e8g0es 


veguod 
geeues 
eeguves 
eeavua?7 
2eaeed 
evewel 
eaeeo2 
e0ae8es 
wi6Se4 
geeee2 
211408 
283004 
20027 
141662 
104146 
eeedus 
e2027 
@41060 
103137 
206530 
20027 
263000 
103527 


485746 
GU5246 
012746 
049200 
016446 


228802 


011446 
16446 
eeguge 


we Ge, Ss TS GS 


== Ge Ge te ™ SS TS =O 


EXP t 


POSs2ut 


SmuTs2oe 


eTITLE 
eo LFOF 


EXP 


eGLOBL 


RETURNS 


ROexa 
RiBxt 
R28X2 
ASexS 
Ranked 
RSexs 
SP EX 
PO8X%7 
FoeXxe 
Piaxs 
F2Rx2 
F3axd 


MOY 


MOV 
BGT 
CMP 


BHI 
BR 
CMP 


BHI 
ASL 
CMP 


BLO 
o IFNOF 
TST 
CLR 
MOV 


MOV 


MOV 
MOV 


SEXPO4 
CNOS2a 


VOQ4A 
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EXP, SERRA} 


FRU 


GOPYRIGHT 1971,1972 OTGITAL EQUIPMENT CORPORATION, MAYNARD,MAS 


SADR+ SSBR,SMLReSDVR, SIR, SRI,SPOLSH) 


THE REAL EXPONENTIATION ROUTINE 
SEQUENCE! 


RS, EXP 


A. 
ARG ADDRESS 


EXPONENTIAL IN RB AND Rie 


IGET ARGUMENT POINTER 


IGET HIGH ORDER ARG 


2(R5),R4 

OR4, RO 

POSS2ea JFJUMP 
RO,#141662 
ZERS29 FJUMP 
SMT$20 

RQ, #41660 
OVRS2e FJuMP 
R@ DUMP 
RQ, #83000 
ONES2@a FUUMP 
FPU 

= (SP) SAVE 
= (SP) PPUSH 
#49200,(SP) 


2(R4),°(9P) 


@R4," (SP) 
2(R4),"(9P) 


IF ARG + 


IF EXPONENT < 86,7 


If EXPONENT # 87 
SIGN 
IF EXPONENT MAGNITUDE € 2eweds 
Space FOR SCALE 
Af, 
GET LOW ORDER ARGUMENT 


PHIGH ORVER 
NEED TWO COPIES OF IT 


SEXPHe MACRO VEUAP14 B7eG§EPe7 2 11345 PAGE Z5e 


54 14654 011446 MOV @R4," (SP) 

52 14686 804467 JSR R4,SFP0L3N PENTER PULISH MOLE 
@oswe2 

53 14642 014732! eWORD PLES20 JFPUSM LOG2(E) 

54 {4644 017162! »4ORD $MLR 

55 14646 017650! eWURD §RI FIX LOGECE) ex 

56 14654 014744! ew ORD ESVS2Q JFSAVE txPONENT SCALE 

537 14692 Bl 6u6e! e WORD $IR PFLOAT TT 

$8 14694 o14732! 20RD PLESZQ FPUSM LoGelE) 

59 14656 ¢1 5256! 2 WORD S0VR 

62 14663 wbegena! »WORD $SBR 

61 146602 ¥14762! eWORD CFRS20 FRPUSH CONTINUED PRACTION CONSTANTS 

62 146604 y17162! eWORD $MLR RYeyY 

63 146606 o82u418' e WORD SAOR PBL*YeY 

64 14679 ¥13256! e WORD SOVR PALS (B14Ye¥) 

65 14672 o22010! -  g WORD SADR W¥eal/ (BL eYwy) 

66 14674 vue@ebiVt 2WORD SADR PAQHY HAG / (BL eYey) 

67 14676 wide56! eWORD $OVR VY/(CAQ*YSALS (BLY eY)) 

68 147¥@ 014742! »WORD INCS2Q Pe2e¥/(aGoYoals(Hieyey)) 

69 14702 Obavie!l ewQRD SADR PLe2YY/ we aenener 

74 147804 014726! WORD DUPS2G FOUPLICATE [7 

74 $4766 B17168! ewORD SMLR PCLe2eY/oengelevd 

72 14718 B150466! 24ORD SCLS2Q FEXIT POLISH MOOE AND SCALE RESULT 

73 14712 062716 INCs2a8 ADD #108200, 0SP PMULTIPLY BY 32,0 
ive2ee 

74 14716 o8alsa4 IMP @(R4)* #60 Balk TO LIST 

75 } 

7o 14720 816646 DURS2u8 MOV 2(SP),"(3P) FOUPLICATE STACK ITEM 
worse 

77 14724 b16646 MOV 2(SP),«(S5P) 
“weeue2 

78 14758 R134 JMP O(R4)+ 

79 } 

84 147382 012746 PLeEg2at MOV #125673,°(SP) PPUSK LOGZCE) 
125073 

81 14756 612746 MOV #40270,0CSP) 
040270 

82 14742 a8215e JMP @OCR4A) + 

8s } 

84 14744 0116685 ESVs2at KOV OSP,12, (9P) SAVE EXPONENT SCALE 
eoabie 

> 14759 w2g1sa JMP CRA) 

86 ' 

87 14752 006116 CFRs20% KOL esp SHIFT MODIFIED ARG 

88 14754 webbie ROL RQ SAVE SIGN 

@9 14796 1627146 SUB #4007 6SP POIVIDE BY 2, 
eeadea | 

98 14702 101430 BLOS ZFRS2€GQ FUNDERFLOW, MAKE ARG @ 

91 14704 wv6eoe ; hOR RQ IGET SIGN BACK 

2 44706 O46016 KOR @SP 

94 414770 wiLloeed MOV @SP,KQ IGET “MUDIFIED aRGUMENT 

94 14772 o166e1 MOV 2(SP),R1 SIN REGISTERS 
aude? 

95 14776 412746 MOV #8360722,97(SP) PUSH 912, 01501675 rerveeweree 
“$6602 

96 1oev2 vi2746 MOV #141100,°(SP) 


144142 
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97 152006 
98 152010 
99 15012 
102 5016 
184 


102 


5022 
5026 


Sade 
Soda 
5036 
5a4Q 
Sa42 


5a44 


5246 
5299 


5@52 


§a54 
$856 
5a6e 
8962 


010146 
010046 
e12746 
074571 
012746 
642426 
012746 
0561335 
012746 
6415962 
010146 
210046 
010146 
o10046 
BOalsa 


S$Cis2ot 
} 


ve2626 ZFRS2e5 
’ 


vi26e0 SCLS2u! 
vi25ei 


vi26ed 


odesad 
105804 
686204 
v6e4o0 


MOV. 
MOV 
MOV 


MOV 
MOV 
MOV 


MOV 
MOV 
MOV 
MOV 
JMP 
aENOC 


o TFOF 
SETO 
SETI 
MOV 
LOCrD 
MQDO 
STCOl 
LOD 
OIVvO 
SETF 
bOCOF 
crce 
BEG 
LOF 
MULE 
ADDF 
LOF 
DIVF 
AOOF 
ADDF 
OIVF 
MULF 
SuBF 
MULF 
STF 

2 ENOC 


e LFNOF 
CMP 


eENDC 
MOV 
MOV 

a TP NOF 
MOV 
aENDC 
SwAs 
CLRB 
ASR 
ADO 


Ri,w(SP) 
RO,w (SP) 
#371974,°CSP) 


#2424926,"°(SP) 
#056133," (SP) 
#041568," (SP) 


Ri,pw(SP) 
RO,wi SP) 
Ri,= (SP) 
R@,w (SP) 
@CR4)¢ 


FRU 
' 


} 
#FCO%20,Ku;7 
OR4,F 2s 
(RO)*,Fae 
FS,R4) 
#i,@eFO) 
(RO¢, Fas 


} 
F2,Fa) 


} 

8Ciseor 
F2,F9) 
F3,RS9 
(RO)*, FSI 
(ROD*, Fil 
P3,F iy 
F2,Fi; 
(RO)*,F4) 
Fi,Fey 
H2,90F 2) 
F2,F0) 
FO, FO; 
Fa,e(SP)) 


FRU 
(SP)*,(SP)% 


PPUSH 601,8042667 weewerweteunes 


IPUSH 6008901907 wenewwvwewe 


DOUBLE PRECISION ARGUMENT REDUCT 
SHORT INTEGERS 

POINTER TO CONSTANTS 

GET ARGUMENT 

F2SFRACT(X*LOG2(E)) 

R48INT (X*LOG2(E)) 

FO*1.8 

YaF2/ (20.062 (E)) 


REST IN SINGLE PRECISION 
TEST FOR UNDERFLOW 
APPROXIMATION RESULT IS 1,8 


Ywy 
Bityey 


AL/(Bieyey) 


AD+YoALs/(BALeY HY) 
Y/CAG+YHAL/ (Bivyey)) 


ta20Y/, « 0 


CL*24Y/, » « 92 
MOVE APPROXIMATION TO STACK 


PFLUSH CFRACT ARG 


RESULT I8 1, 


(9P)%,ROI 
(SP)*,RL 
FRU 

($P)%,R4) 


R4} 
R4)} 
R4} 
R4,ROy 


GET APPROXIMATION RESULT 


GET INT (X#L0G2(E)) 
MAKE INTO EXPONENT MODIFIER 


ADD IN EXPONENT MODIFIER 
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150 5864 189428 BMI OVRSZo) TEST OVERFLOW 

151 5e66 gee2es RTS RSs 

152 } 

153 5070 O8Be1 ONES2uvs CLR Ri 

154 5072 812708 MOV #¥46208,R0 PEXPCTINY) @ fe 
240202 

155 5076 veadeos RTS RS 

156 0100 wi27a8 OvRs2a8 MOV #2404,R9 PERROR 475 
082404 

157 S104 gea402 BR ECLS2e . 

$68 81:46 @12788 ZEXS208 MOV #2409,RQ PERROR 576 
0824205 

159 $112 004667 ECLg201 JSR R5,SERRA 
02478¢ 

168 5116 6@580@ CLR Re IRETURN @ 

$61 S120 vesees . CLR Ri 

462 51322 200205 RTS RS 

163 } 

164 eo LFOF FRI 

165 ro ORDER@DEPENDENT CONSTANTS 

166 ] 

167 FeoUs2@8 WORD 044270,128873) LOG2Z(E) OOUBLE PRECISION 

ee . eWORD 24554, 083761) 

i6 } 

170 eWORD 040470,325073s @vLOG2(E) OOUBLE PRECISION 

i714 eWORD C2d594,013761) 

172 } 

473 eNQRD B43560,0596135) 81960,0901907 

174 } 

475 . eWORD 942426,0715719 A1*601,88042667 

176 ] 

177 ewORD 144100,056682) A@%=i2,01601675 

1786 aENDC 


179 eENDC 
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|= OC anvra as GH 


41 


15424 


£8999 


15134 
15196 


16142 


15444 


18446 


151492 


C2980 
peeegd 
eveees 
e2eee6 
012746 
oisiagt 
012746 
B0G137 
210846 
012746 
eeeags 
oieees 
o04ai4 
062706 
200812 
280136 - 


= ] Se Yes @ GSS TS 


SFCALLSE 


RETS2it 


eTITLE SFCLO2 
e IFOF CNOS24 


SFCALL V@@2A_ 


COPYRIGHT 49714, DIWVITAL EQUIPMENT CORPORATION, MAYNARD, MASS 


eGLOBL SFCAbL - 

SFCALL eee ROUTINE FOR CALLING SINGLE ARG FORTRAN 
FUNCTIONS PROM WITHIN OTHER FORTRAN FUNCTIONS, 
CALLING SEQUENCE! 


MOV ARG POINTER,REG 

MoV MFUNCTION NAME,/RA 

JSR PC, SFCALL 

FLUSH ARGUMENT 

Raaxe 

Raaxd 

R5axs 

SPaXx6 

MOV HRETS21,° (SP) JPUSH SFCALL RETURN 
MOV #139700 (8F) IMP orc 

MOV RB,e(SP) Pe¥ORD ARG 

MOV 40,0 (8P) PBR ry | 

MOV $P,R5 JSR RSpFUNCT 
JSR RO, @R4 

ADO #0,,9P JFLUSH CALL 

JMP OCSP1e6 FRETURN TO USER WITH ARG ON STACK 


AND FUNCT CARG) IN REGS, 
e@NDC 
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{ eTITLE SFIXO3 

2 o IFOF CNDS22 

$ } 

4 ' IFIX VOQSA 

5 } 

6 ) GOPYRIGHT 1971,1972 DIGITAL EQUIPMENT CORPORATION, MAYNARD, MAS 

1 j 

8 oGLOBL IFIXsSRI+SPOLSH 

9 ’ THE FORTRAN JFIX FUNCTION 

10 , CALLING SEQUENCES 

44 ! JSR RS, TF IX 

12 ; BR A 

is } aWORD ARGUMENT ADDRESS 

14 pal 

e) } RETURNS TmME TRUNCATED ANO PIXED REAL 

16 } ARGUMENT AS AN JNTEGER IN Ro, 

17 ! 

18 gogvau Raexg 

19 vdeugd R4axa 

20 weueed R58X%5 

21 032096 SPax6 

22 15154 016904 IFIXxk MOV 2(R3),R4 PGET ARG AVORESS 
wsave? 

23 15160 016446 MOV 2(R4) ,= (SP) PPUSH ARG 
veeeae 

24 15164 011446 MOV @R4,° (SP) 

25 15166 684467 RNOS22t JSR R4,SPOLSH FENTER POLISH MODE 
004452 

26 151472 wi76se! »WORD SRI,VPLS22 PTRUNCATE AND FIX 

15374 015176! 
27 15176 e126ae UPLS22! MOV (9P)4%,RO yPOP INTEGER RESULT 
28 15280 aev2e5 RTS RS PRETURN TO CALLER 


29 eENOC 


SFLT#2 


OPN A & G A) = 


15202 
15206 
15212 
152ke 


15216 
15220 


= SS Se ee we 


=e ~~ *2 WS SS “Ee Ge = 


euudae 

“edoers 

eons 

aeede5 

veeveo 

017546 FLOAT? 
usaeee2 

004467 

vaadae 
616862! 
047640! 
¥iS22e0! 
@e@n2a5 URPLS2si 


eTITLe 
eITFOF 


FLOAT 


COPYRIGHT 1971, 


SFLT#2 
CNUS23 


V@G2A 


MACKU VROB4P14 O7eSEPe72 11445 PALE 26 


DILITAL EQUIPMENT CORPORATION, MAYNARO,MASS 


eGLOBL FLOAT,SIR,SPOLSH, SPOPRS 

FLOAT THE FORTRAN FLOAT FUNCTIUN 

CaLLiING SEQYENCE! 

JSR RS, FLOAT 

oR A 

awORD ADDRESS UF INTEGER 

RETURNS REAL EQUIVALENT IN RO AND RO, 

USES SIR, 

R2ZsXxa@ 

ALext 

hanya 

R5aX%$ 

SP RX6 

MOV @2(R9),# (SP) IGET ARGUMENT ON STACK 
JSR R4,SPOLS" PENTER POLISH MODE 
e¥URD SIR CALL SIR TO CONVERT TO REAL 
eaWORD SPOPR3 JPOP RESULT TO REGS 

eWORD UFL S23 

RTS RS RETURN TO CALLER 

aENOC 


S$ICIe2 


OenN AW Sa G RH = 


{9222 


19226 
19258 


{5294 
19256 


19242 


15252 


15256 


15202 
{5204 
15266 
19274 
15272 


19276 
15.462 
19364 


1551a 
{9312 
19514 


{5320 
19322 
193264 
19326 


15552 


200088 
eeeeal 
denuded 
“Yowwusd 
eBeve7 
012746 
2098067 
“ueg4ad 
12746 
080471 
218146 
216601 
“bedi1a 
266666 
gugeas 
euegeie 
216666 
asadus 
vdeoao 
012ac66 
e@aead 
010e66 
euseasé 
488008 
112102 
242782 
177600 
1240227 
WbO040 
O¥{we4 
20166 
eaceia 
0G2767 
oag4asa 
105766 
YVOSA7 
wd¢dae 
Yvbeise1s 
wag4sed 
129227 
Weedss 
004444 


=e Ge GS Be Vs 


we we Te TS ee US TO 


SOULS 


SIUTS 


vOS243 


STTS$241 


SGSsge24t 


SNIS24$ 


eTITLE 
el FOF 


$Ici 


eGLOoL 
$OCI 
SIC! 
CALLING 
PUSH 
PUSH 
JSR 
RETURNS 
RO#xd 
mi exd 
R2ake2 
8P8x6 
PCax7 
MOV 


BR 
MOV 


MOV 
MOV 
AOD 


MOV 


MOV 
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SICT2 
CNDSa4 


VOG2A 


$1C1,$0C) 


COPYRIGHT 1971,1972 DIGITAL EQUIPMENT CORPORATION, 


ASCIL TO OCTAL CONVERSION 
ASCII TO INTEGER CONVERSION 


SEQUENCE! 


CHARACTER FIELD START 
CHARACTER FIELO LENGTH 


Pc,S$icl 


OR SOC! 


WITH INTEGER RESULT ON TOP OF STACK, 


#67,°(5P) 


G0$24 
#47, 70a(SP) 


Ri,=(SP) 
8, (8P),R4 


6(SP),8, (SP) 


4(SP),6(35P) 


RY, 4\S8P) 


R2,s(S8P) 
= (SP) 

Rg 
(R1)*,k2 
#177690,K2 


Ra,#! jf 


SG8824 JJUMP 
R1,12, (SP) 


PQUMP 
BOONE 


STTS$24 
SGNS24 
7CSPQ)3 


SNUSe4} 
@SP} 

NCKS$24) 
R2,a'e} 


FLOS24 JFJUMP 


FSET OCTAL FLaG$ 


PSET DECIMAL FLAGS 


PSAVE R1 
IGET STRING START 


IGET END*4 


MAYNARD, MAS 


PFLODLE RETURN POINTER 


ISAVE RO 


PSAVE Re 


ICLEAR SIGN 
ICLEAR WORK SPACE 


GET NEXT CHAR, 


IF NOT BLANK 


IF MORE TO SCAN 


IF 


IF 


0U 


OCTAL CUNVERSTION 


NOT PERMIT SIGNS 


OCTAL = PAKE THE SIGN BIT 


GO 


PROCESS THE OIGIT 
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45 15354 120227 CmFS R2,4's 
080055 
46 18340 221012 BNE NCKS24 PFJUMP IF NOT = 
47 18342 ves2i6 Inc osP ISET SIGN © 
48 (6344 G00434 BR FLOSed 
49 45346 142102 NxTs248 MOVB (RLD4,R2 1GET NEXT CHAR, 
§@ 183980 e42e702 BIC #177008,R2 
177608 
51 15394 120227 CMPB R2,a!' 3 
680648 
S82 18360 201002 BNE NCKS24 FJUMP IF NOT BLANK 
§3 15362 112702 MOVE #60,R2 %FBLANK sZERO 
2ege6ee 
54 16366 120227 NCKS2Zas CMPS R2,8'@ 
289062 
55 45372 002440 BLT ERRS24 FJUMP Ie TOO SMALL 
56 15374 12u266 CMP R2,6(SP) 
. ee) 
SY 18480 623035 BGT ERRS24 FJUMP IF TOO BIG 
§$ 15482 162702 $uUB W62,R2 IMAKE NUMERIC 
. gageee 
S59 18486 105766 TsTa 7 (SP) FOCTAL OR BINARY 
ebeve7 
68 15432 061435 BEG OCL S24 
64 15444 wa65eR ASL R@ IRQsBASEeRDoRZ 
62 18436 182426 BvSs ERRSB4 
63 {5e2ea 160002 SUB R@,Re 
64 (84822 Basses ASL, R@ 
68 18424 102423 BvS ERRS24 
66 18426 @26d00 ASL R@ 
67 46480 1024914 avs ERRS24 
668 (8432 160202 Sus R2,R@ 
69 38ad4 102447 Bv8 ERRS24 
7@ 49486 ea20165 PLUS2aS CMP Ri,12, (SF) 
oBoeLe 
74 18442 002744 BLT NXT$24 JUMP LF MORE FIELO TO SCAN 
72 16444 086026 SGNS241 ROR (SP) ITEST SIGN 
73 18446 123403 BCS DNES@4 JFJUMP IF e 
74 1945¢@ 005400 NEG RY MAKE *# 
75 18482 102431 BVS NGMS24 ~PFJUMP IF «aNEGMAX 
76 18454 e0g241 CLC FSET SUCCESS FLAG 
77 184596 @12602 DNeS24s MOV (SP)+*,R2 pRESTORE R2 
78 18469 Bi26a1 MOV (SP)*,R4 pRESTORE R3 
79 18462 006126 ROL (SP)¢ PFLUSH FLAG AND SET C BIT IF ERROR 
8G 13464 Wige6s6 MOV Ri’, 4 (SP) pRETURN RESULT 
waeeas 
81 1947¢a B126a0 MOV (SP)*,RO 
@2 16472 a0cd2e07 RTS PC 
83 1594746 wOS726 ERKS24t TST (SP)* IFLUSH SIGN 
84 15476 BGS000 NGMg24i CLR RG 
85 15500 405166 Cam 4(SP) ISET ERROR FLAG 
eeguea4s 
86 155084 €80764 BR ONES@4 
a7 - } 
88 15506 26100 Ochg2a8 ROL RO} SHIFT 3 BITS LEFT, 
89 155190 1037714 bcs ERRS24) GHECKING AS YOU GO 
92 15512 ve6iae ROL Ray 


SICI2 


15514 
19516 
15549 
19522 
195264 


103767 
686100 
103765 
869200 


200744 


BCS 


ROL 
BCS 
Add 
BR 
oENDC 


MACRO VR@A4914 U7eGERPH72 11840 PAGE 294 


ERRS24) 

Ry 

ERRS243 

R2Z@,ROp ADD IN THE OIGIT 
FLOS2@4s DO NEXT 


$1C082 


12 


re CeO A & G Ds 


15526 


15832 
{5554 


19542 
19542 


16546 
15552 
19354 
15556 
15552 
15596 
15572 
19576 
{5é6e¢ 


15602 
15604 


15606. 


15612 
15614 


"15616 


15616 
15628 
19622 


4eoeau 
edvees 
eenee2 
vouees 
wvedcas 
evaeed 
200807 
wie7eu 
022166 
geo4ea 
“12798 
20ei54 
@12446 
016683 
e00010 
e166e2 
20g806 
ed28eas 
20seaa2 
W25066 
wvavgs 
616604 
eaakad 
212746 
eeeeag 
g2ud27 
020166 
@01405 
e05704 
ge20es 
005404 
w12716 
2aavss 
005046 
060700 


ees7ie 
001416 
485004 


== ~~ Ww Se TE 


=e ws “se Vs te we Ge <n ws 


Socot 


SICOF 
GOSs253 


LPSS$258 


POSS253 


RELSZ93 
TST$25t 


oe TITLE 
a lPOF 


$1CO 


SICObe2 
CNOS25 


Vadea 
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COPYRIGHT 1971, DIVITAl EGUIPMENT CORPURATION, MAYNARU,MASS 


eGLOBL SsTCOrs0CU 
OCTaAL TO ASCII CONVERSION 


$0C0 
$100 


INTEWER 


TO ASCIT CONVERSION 


CALLING SEQUENCES 
FIELU START LOCATION 
PIELU LENGTH 


PUSH 

PUSH 

PUSH VALUE 

JSR PG ,$i4CO 


(OR $0CQO) 


ERROR WILL RETURN WITH C BIY SET ON 
R2, RS ARE DESTROYED 


RO, Rip 
RASXA 
RiSK1 
R28X%2 
RSaKS 
RARX A 
SPBX%6 
PC8%7 
MOV 


BR 
MOV 


MOV 
MOV 


MOV 


BGE 
CLR 
Cum 


MOV 
MOV 
CMP 


BEG 
TST 
GE 
NEG 
MOV 


CLR 
ADO 


TST 
BE 
CLR 


#OUCTS25eRELS25, RO FRPOINT TO OCTAL TABLE 
GOS829 . 
HOECS25eR EL S25,R8 POINT TO DECIMAL TABLE 
R4,2(8P) | 

8, (SP),RS GET FIELD START 

6,°SF),R2 PGET FIELD LENGTH 

LPSs25 FJUMP IF LENGTH NOT NEG 

R2 

6(SP) 

4, (SP),R4 PGET VALVE TO BE CONVERTED 

ww! 4" (SP) JCLEAR SIGN 

RO, H#UCTS25eRELS25 PCMECK IF OOING OCTAL 
PUSS25 JYES, GIVE MAGNITUVE RESULT 

R4 

POSse5 s#JumP If « 

Ra IGET ABSOLUTE VaLUe 

#!=,0SP SAVE = 

# (SP) SET FENCE 

PL, RY 

@R¢ 

MOVS$2S FJUMP IF ALL POWERS DONE 

RI 


$ICQve2 


69 
50 
51 
52 
53 
54 
55 
56 
57 
58 


59 
68 
61 
62 


635 
64 
65 
66 
67 
68 
69 


92 


15624 
15626 
1569¢ 
196982 
15684 
15696 
1964a 
19642 
19644 
15646 


15692 
156594 
196956 
1566¢ 


15604 
19696 
15672 
18672 
15674 
15676 
1578a 
15782 
157%4 


15710 
19712 
15714 
15716 


15722 
15724 
197245 


197352 
15754 
19746 
15742 
15742 
19744 
15746 


15752 
15796 


19762 
197604 


19778 
19772 
15774 
15776 
16¢0.2 
1oad2 
16804 


1644¢4 
1¥034¢2 
usec 
200774 
wo2daa 
wes7eai 
“dj{dne 
008716 
w¥1764 
wo27ai 
QbG060 
010146 
wue76u 
w6vees 
2627904 
“2eed6u 
119443 
6OS5a2 
203414 
1126043 
081974 
142618 
eesdde 
001412 
112743 
wbewad 
080773 
205726 
@G1e11 
022726 
HGAvad 
061011 
ei26ua 
wi2666 
edeedad 
2653726 
206126 
vee2e7 
005726 
281576 
w057Q0 
016683 
2aae1e 
112723 
WAR05e2 
0059866 
evovg6 
003573 
008166 
vdevesd 
080755 
¥v23420 
401750 
yauiad 
G0ab12 
odvbus 
10008¢0 


SuUBS253 


Galg2de 


NZE8253 


MOYS255 


DONS25I 


FILS25% 


FULSZOS 


DNES251 


ERNS253 


STS3251 


DECS$25) 


OCTS$2o55 


Sus 
BLO 
INC 
BR 

AOU 
TsT 
BNE 
TST 
BEQ 
AOD 


MOV 
BR 

ADD 
AOD 


MOVE 
DEC 
BLE 
MOQVB 
BNE 
MOVB 
DEC 
BEG 
MOVB 


BR 

TST 
BNE 
CMP 


BNE 
MQV 
MOV 


TST 
ROL 
RTS 
TST 
BNE 
TST 
MOY 


MOV 
DEC 


BGT 
COM 


BR 
aWwQRD 


eWQORD 
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@PRO,NG FSEE IF CURRENT POWER WILL GO AGAIN 
BACS25 

Ri BUMP OIGIT 

SUBS25 

(RO) %,R4 pT0Q MUCH, BACK UP 

Ri 

NZES25 FIJUMP IF DIGIT NUT @ 

@SP 

TSTS25 FJUMP ITF NO NON@ZERO DIGITS YET 
#60,"%1 JPCONVERT TO ASCII 


Ri,elSP) 

TETSe5 

R2,Rd POINT TO FIELD ENU 

#60,R4 JPCONVERT LEAST SIGNIFICANT OIGIT 


R4,e(R3) 

Re 

FULS25 FJUMP IF CUUNT EXHAUSTED 
(SP)%,e(R3) PMOVE DIGIT 

DCRS25 JFJUMP IF NOT THE FENCE 
(SP)+,@kS WMOVE QUT THE SIGN 
R2 

ONES2S PJUMP IF FIELD FILLED 

wt ,*(R3) PMOVE IN LEADING BLANKS 
FILS25 

(3P)* 


ERRS@5 FNUMBER TOU B1G FOR FIELO 
a' ,(SP)¢ 


STS$2544, JUMP IF NQ ROOM FOR = 
CSP)%,R4 
(3P)*,4(9P) MOVE RETURN UP 


(aP)* FLUSH VALUE 


(SP)* PFLUSH FLAG AND SET C BIT ON IF ERROR 


(SP)* FLUSH SIGN 
8.(°5F),R8 


le, (R3)* HFILL FIELD WITH 
6(3P) 


ST3825 JUMP IF MORE TO DU 
6(3P) PFLAG ERROR 


DNES25 
10000, ,130GG,710B—,1Ge 2 


1408000,30090,140208,100,1008 
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16206 viaeged 
19910 3801000 
19042 e003¢00 
16014 880040 
16@16 o8a8ee 
93 eENOC 


SINTO2 


Can O Ab Gb = 


12 


16080 
19920 


15026 


19940 
16042 


16256 
16249 
10042 
16044 


== We Ge Ge We 


= Se @e Ge Se Ss we Ww = 


edavae 
edgua4 
V8B080 
avavu6 
INTS 
016504 IDINTS 
er 
016446 
veavee 
041446 
064467 
463606 
017650! 
@16042! 
032900 UPLS26l 
oee2as5 
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eTITLE SINT#2 
e lFOF CNOQS26 


INT VO@d2A 


COPYRIGHT 1971, DIGITAL EG“UIPMENT CORPORATION, MAYNARD, MASS 


eGLOBL INT, 40INT,SR1,5POLSH 

THE FORTRAN AUNT AND IDINT FUNCTIONS, 
CALLING SEQUENCE? 

JSR RS,INT (COR IDINT) 

BR A 

aWORD ARGUMENT ADDRESS 


RETURNS INTEGER EQUIVALENT IN Rae 


USES SKI, 

RQex? 

MARX A 

RSaX5 

SPRX6 

MOV 2(R5),R4 IGET ARGUMENT ADDRESS 
MOV 2(R4),e(SP) PPUSH LOW ORDER REAL PART 
MOY @R4,7(8P) JHIGH ORDER 

JSR R4,8POLSn CALL SRA TO CONVERT TO 
eWORD SRI, UPLE2Z6 BINTEGER 

MOV (3P)*,RO PPOP INTEGER RESULT 

RTS RS 

aENDC 


SIRGA MACRU VR@4"14 U7"SEPM72 $1849 PALE $2 

i eTITLE BIRGS 

2 el FOF CNDS27 

K] oGLOBL SIR,SID 

4 } INTEGER TO REAL CONVERSION, 

5 ’ 

6 ' SIR VOB4GA 

7 ) 

8 } COPYRIGHT 1971,3972 DIGITAL EQUIPMENT CORP,, MAYNARD, MA 

*) ’ ARGUMENT 1S A FULL wORD ON THE TUP OF THE STACK 

16 , CONVERT IT TO REAL FORMAT AND RETURN IT AS THE TOP 

41 } TwO WORDS ON THE STACK, 

12 oeuvae R@exe 

13 weQeet RUSK) 

14 weaege R2eX2 

15 C@OUES R3exs 

16 aeavg4 R4nka 

17 eenees SP aX6 

i6 177304 MQei77Sa4 

19 1773512 NOR8177312 

28 e6avG~0 Faasxe 

2i a TFOF FRU 

22 SIWs SETO; 

23 BR ID1$27 

24 SIRS SETF } 

25 lols278 SseTY ’ SHORT INTEGERS 

26 LOCIF (SP)¢,FO) CONVERT 

27 STF FO,a(SP)} RESULT TQ STACK 

28 JMP @CRAl¢ 

29 eENOC 

30 elFNOF FRU 

31 16246 211646 $1018 MOV esP,"(SP) SPUSH ARGUMENT QOOWN 

$2 16080 411646 MOV @SP," (SP) 

33 16852 985066 CLR 2(SP) PCLEAR LOWEST ORDER DOUBLE 
ypooege 

34 16056 245066 CLR 4(SP) 
aegead 

35 16962 05046 STKI CLR # (SP) IMAKE ROOM FOR RESULT 

36 16064 016621 MOV 2(SP),R1 GET INTEGER ARGUMENT 
ueauge 

37 16870 a83¥o2 BGT PUS$27 

$38 16872 vv1424 BEG ZERS@7 

39 16074 Bes4at NEG R4 IGET ABSOLUTE VALUE 

42 16076 706146 POS$278 ROL (SP) SAVE SIGN 

41 sIFNDOF EAE 

42 161300 wl27¢e2 MOV #2200K2 IGET MAX, POSSIBLE EXPONENT +1 
weo2eu 

4$ eBNOC 

44 j EAE COVE 

45 elf oF EAE 

46 MOV #217eR2 IGET MAX, POSSIBLE EXPONENT 

47 aENOC 

48 16104 1205066 CLRB 4(SP) CLEAR LOWEST ORDER FRACTION 
voQba4 

49 101419 NOMS273 

50 eIFNOF EAE 

51 16430 g26101 ROL Ai HLOOK FOR NORMAL BIT 

$2 16132 123492 8cs NUDS@7 JPJUMP TF FOUND 


SIRo4 


53 16114 885302 
54 160116 o0e774 


55 


1612¢ 


16124 
16126 
16156 
16152 
16104 
16136 


16142 
16144 


140166 NOvVS27I 
82085 
103001 
150201 
BeBdse1 
286826 
086091 
1862066 
6ve0e08 
Oiati16 
WOG134 ZEKS278 


DEC R2 

BR NOMS27 

eENDC 

caé CODE 

e LFOF EAE 

MOV Wha, KS 

CLR @RS 

MOV Ri,e(R3) 

MOV #NORFRO 

CLR @RO 

Sus (RO)*,R2 

MOV #2,60N0 

MOV ORS, RS 

»ENOC 

MOV8 Ri,S(sP) 
- LR Ri 

BISB R2,R1 

SwAs Ri. 

ROR (8P)* 

ROR Ri 


RORS 3(SP) 


MOV R1,@3P 
JMP @CRAI¢ 
sENDC 
eENOC 
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JOECREASE EXPONENT 
ITRY AGAIN 


HPOINT TO MQ 


PMOVE ARG 
POINT TO NOR IN EAE 
NORMALIZE FRACTION 

PTELL EXPONENT 
SHIFT OUT NOKMAL BIT BY LSH 
RESULT TO R4 : 


PSAVE LOW URDER FRACTION 
ICOMBINE EXPONENT AND HIGH ORDER FRACTIO 
IGET SIGN 
PINSERT SIGN IN RESULT 


POUTPUT RESULT 


SMLOGS 


oOeSn GW & GR 


191446 
16159 
16152 


16166 
161690 
16162 
16166 
16178 
16376 
16200 


16204 


19212 


16216 


16224 


280880 
e8aeeal 
280002 


Gveveds 


eegved 
edeees 
b020e6 
80n8e7 
177304 
882012 
BvaKd2e 
Bege14 
eagege 
eeaeaRa 


619446 
019546 
086366 
eoaeed 
066145 
268246 
116616 
weeuis 
061436 
116666 
eeavie 
O@e641 
82264 
006066 
er ee 
116666 
wears 
000016 
004566 
evaviea 
116666 
oeee1s 
eegeer2 
0ve566 


~~ te SS Ge we Gs Ge Be 


SHLDE 


SmLDF 


eTITLe 
eo LFOF 
eGLOBL 
$MLD 


SMLO 
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SMLOBS 
CNOS28 
SMLD SERRA 
THE DOUBLE MULTIPLY ROUTINE 


VOR5A 
MASS, 


CALLED IN POLISH MODE, 
REPLACES THE TOP TWO DOUBLES ON THE STACK 
WITH THEIR PRODUCT, 


ROexa 

RYUexi 

M2RX%2 

R38XS 

Raaxd 

R§aXx5 

SPex6 

PC8X7 

MQ8177304 

Ané, 

Bails, 

KESLT#12, 

SIGNs2 

Forxed 

a lFOF FPU 

eWORD 470031 JPSETD 

2WQRD 472426 #7LDD (SP) ¢,Fa IGET OQPERAND 
— g WORD $71926 PFPMULD (SP)4,FQ PPROODUCT 
eaWORD 474246 #98TO FOr,e(SP) pPROOUCT TO STAC 
JMP (RAO 

eENOC 

elFNDF FPU 

MOV R4,e(8P) 

MOV RS,e (SP) 

ASL A+On4 (SP) SHIFT MULTIPLICAND 

ROL (SP) KEEP SIGN 

CLR # (SP) ICLEAR EXPONENT 

MOVS A*i (OP) ,¢SP PKEEP MULTIPLICAND EXPONENT 
BEG ZERSe2B JJUMP IF ANSWER I$ ZERO 

MOVB ACSP),A#1 (SP) PSAHIFT FRACTION LEFT 

SEC . FINSERT NURMAL BIT 

ROR A(SP) 

MOVS A*3(SP) ,ACSP) 

Swap Ae2(9P) 

MOVB A¥5(5P),Ae2 (SP) 

SWAB Av4(SP) 
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yOee14 
48 {6259 116666 MOVS A®7(9P),Ae4(SP) 
@2a047 
20014 
49 16256 9005866 SwAG A*6 (SP) 
evnei6 
50 16242 105066 CLRS A*6(35P) IMAKE ROOM FOR EXTRA BITS 
202016 
51 £6246 006566 ASL BCSP) ISHIFT HIGH MULTIPLIER 
eeee2e 
52 16252 085566 ADC SIGN(SP) JGET PRODUCT SIGN 
eveba2 
53 16256 105766 TSTB Bei (SP) 
o@ee2i 
54 16262 wdides BNE NNZS28 JJUMP IF NOY ZERO 
55 16264 w22626 Zexszen CMP (SP)*, (SP) PFLUSH SIGN ANO EXPONENT 
§6 16266 o@v167 ZEI1s288 JMP ZE2828 
0OBSS4 : 
57 16272 008000 NNZS288 CLR R@ . ICLEAR PRODUCT 
58 16274 odSval CLR R4 
59 oIFNOF EAEBMULOLY 
62 16276 w2seo2 CLR R2 
61 16500 805003 CLR KS 
62 16302 ud5005 CLR R§ CLEAR C BIT OVERFLOW CATCHER 
63 16304 006266 ROR BC SP) SIGN I8 NOQw Q 
veeded 
64 16310 wi2746 MOV #16,00(S8F) PPUSH ITERATION COUNT 
eoee2e 
65 16314 0166904 MOV Be6e2(SP),RA IGET LOWEST ORDER MULTIPLER 
o2u83e0 
66 16320 341404 BE B86Z82e8 FJUMP IF NO BITS HERE 
67 16322 404767 JSR PC MTos2a 
920418 
68 16326 012716 MOV #16,00SP PRESTORE CUUNT 
“dae2e 
69 16332 wi6604 BEZs26% MOV Bede2 (SP) ,R4 1GET NEXT LOWEST FRACTION 
veeu26 
72 16356 840s BNE B4n828 JUMP IF wORK TO O00 
71 1684@ 005766 TST Be6ee (SP) 
209030 
72 10344 001406 BEQ B42$26 FJUMP IF NO PRODUCT YET 
73 10346 044767 BANS2Et JSR Pc,MT2$28 
g8as6u 
74 16352 604767 JGR PC, MLETS2¢ PONE BIT FULL PRECISION 
000262 
75 160356 wl2716 MOV #16,00SP 
e0ov2e 
76 16562 @16004 Bacs2u8 MOV Be2e2(SP),R4 GET NEXT TO HIGHESY ORDER FRACT 
2agv2d 
77 16306 veaivasd BNE B2ns2a 
78 16570 088766 TST Beaded (SP) 
220026 
79 16374 wo1eesds BNE B2nses8 
8A 163876 w28766 TST Be64e2(SP) 
228030 
81 16482 w81402 BEQ B2zse6 


82 16404 004767 BKHaNs2st JSR PC,MLTS29 
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20g230 


83 16410 016694 822828! MOV 


evur22 
84 16414 012716 
eegeg7 
6S 16420 064767 
een2ia 
86 16424 u04767 
@oe214 
87 164320 625726 
88 16452 362604 


MOV 
JSR 
JSR 


TST 
AoD 
eENOC 
eo LF OF 
CLR 
B1S8 
A000 
MOVB 
ROR 
Swas 
MOVE 
SwaB 


— MOVB 


Swas 
MOV8 
Gwe 
CLLRS 
eENOC 
e IF OF 
HOV 
MOV 
MOV 
JSR 
MOV 
MOV 
MOV 
MOV 
JSR 
AOD 
Aoc 
ADD 
AOC 
AOG 
MQV 
MOV 
JSR 
AOD 
ADC 
ADD 
Aoc 
ADC 
MOV 
MOV 
JSR 
ADO 
AoC 
AOD 
ADG 


B+ee2e(SP),R4 IGET HIGH ORDER BITS 
@7,@5P %FTHERE ARE ONLY SEVEN UF THEM 


PC,MLTS$S28 

PC,m11828 960 DU THE NORMAL BIT 
(SP)* FLUSH ITERATION COUNT 
(3SP)*,R4 pa00 EXPONENTS 

EAR IMULDIV 

R4 

B+1(SP),R4 PGET EXPONENT 

R4,@3P IGET SUM OF EXPONENTS 

#i,8%1 (SP) PINSERT NORMAL BIT 
BCSP) 


BC SP) PLEFT JUSTIFY FRACTION 
BeS(SP),8(SP) 

Be2cSP) 

BeS (SP) ,d+2(SP) 

Bea( SP) 

Beo7 (SP), 8+a(SP) 

846 (5P) 

B86 (SP) 


Eaé 

WMQ,K4 FROINT TO MQ 
ACSP),e( SP) 

Be6e2(SP),@R4 GET Aleba 
R5,ENUS28 

CSP)%,R2 RESULT TO PRODUCT 
(SP)¢,R3 

Ae2(5P),9(SP) : 
Bede2(SP),eR4 GET Aged 
R5,E€"US28 

(SP)*,R2 ya00 TO PROOUCT 
Ri 

(3P)*,R3 

R2 

Ri 

Ata(SP),= (SP) 
Be2e2(SP),@R4 pGET ASeBQ 
R5,E4USe2d 

(SP)¢,R2 

RY 

(SP)*,R3 

R2 

oe! 

Aw6(5P),°(SP) 
8+Ge2(SP),eRA GET AdwBi 
R5,ENUS2S 

(SP)*,R2 


Ri 
CSP)¢,RS 
R2 


SMLO@S 


$55 
136 
137 
138 
139 
142 
143 
142 
143 
144 
445 
146 
147 
148 
149 
154 
153 
152 
155 
154 
155 
156 
157 
158 
159 
162 
163 
162 
163 
164 
165 
166 
167 
168 
169 
172 
171 
172 
173 
174 
175 
176 
177 
178 
479 
180 
161 
162 
188 
164 
185 
186 
187 
188 
189 
192 
194 


Aoc 
MOV 
MOV 
CLR 
MOV 
MOV 
JSR 
AOD 
AOC 
Ao0 
ADC 
ADC 
MOV 
MOV 
JSR 
ADQ 
AOC 
AoO 
Aoc 
AOC 
MOV 
MOV 
JSR 
A00 
Aoc 
AOdD 
Aoc 
ADC 
MOV 
MOV 
JSR 
AOD 
ADC 
AOD 
aoc 
AOC 
MOV 
MOV 
JSR 
ADO 
AOC 
ADD 
AOC 
ADC 
MOV 
MOV 
JSR 
AOD 
Ao0D 
aoc 
MOV 
eENOC 
elF uF 
AQV 
MQV 
JSR 
MOV 
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Ri 


R2,RS POIVIDE 


Ry, Re 

Fd 

ACEP) ,=(3P) 
Be4e2(SP),@R4 
R5,EMUS28 
(SP)*,R2 

el 

(SP)%,R3 

R2 

R 
AO2(8P),°(SP) 
Be2e2(SP),@R4 
RS,€Muses 
(SP)*,R2 

Ri 

(3P)*,RS 

R2 

R4 
Ae4(SP),°(SP) 
Bese2z(SP),eR4 
R5,E%US2S 
(SP)*,R@ 

Ri 

(3P)%,R83 

R2 

R\ 
AC8P),#(SP) 
Beaee (SP), @R4 
R5,EMUS28 
(SP)*,Ri 

RO 

(3P)*,R2 

Ri 

RO 
Ae2(SP),*(3P) 
B+O+2 (SP) ,@R4 
R5,E%uUS28 
CaP)*,R1 

R@ 

(SP)*,R2 

Rt 

RQ 
ACSP),#(SP) 
Bege2(SP),eRA 
RS,EMUS28 
(SP)*,R8 


(SP)*,R4 


MULOLV 
A(SP),#(5P) 
B+6e2(SP),R4 
PC,EMUS28 


BY 20416 


GET Ajebd3 


IGET Aaed2 


JGET ASwBq 


IGET Ajewb2 


GET AZeBy 


GET AjewBy 


GET SUM OF EXPONENTS 


GET Aleta 


R4,Re PRESULT TO PRODUCT 
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192 MOV RS,RS 

493 MOV Av¥2(9P),°(SP) 

194 MOV B+4e2(SP),R4 GET AQwBS 
195 JSEK PC,EMUS2S 

196 ADD R4,Re pAOD TO PRODUCT 
197 ADC Ri 

198 ADD KS,RS 

199 AOC R2 

2280 AOC Ri 

204 MOV Aea(SP),* (SP) 

202 MOV Be2e2(SP),Ra IGET Aged? 
203 JSR PC,EMUS25 

204 ADD R4,Re 

205 AOC Ri 

206 AQO RS5,RS 

2a7 ADC R2 

208 ADC Ri 

249 MOV A¥6(9P),* (SP) 

210 MOV B+dee(SP),R4 PGET Added 
2ii JSR PC, EMUS29 

2ie2 ADO R4,Re 

2is ADC Ri 

2i4 ADD K5S,RS 

219 AOC R2 

216 AOC Ri 

217 MOV R2,R9 POIVIDE BY 2416 
218 MOV RL,R2 

219 CLR Ri 

222 MOV ACSP) ,#(3P) 

22k MOV B+4e2(SP),R4 GET ALebs 
222 JSR PC,EMUS29 

225 AOD R4,Re 

224 AOC Ri 

225 AOD RS,RS 

226 AOC R2 

227 AOC R4 

228 MOV Ae2(5P)," (SP) 

229 MOV Be2e2e(SP),R4 tGET agwd2 
238 JSR PC, EMUS2S 

23i Add R4,R2 

232 ADC RI 

23s AOO R5,Rd 

234 ADG R2 

235 ADG RA 

236 MOV Aw4(SP),7 (SP) 

237 MOV Bedee(SP),R4 GET ASeBY 
238 JSR PC, EMUS28 

239 AOD R4,R2 

248 aoc K 4 

2414 AOD RS,RS 

242 AOC R2 

2435 Aoc Ri 

244 mov ACSP),*(9P) 

245 MOV Be24e2(SF),R4 GET AiLwB2 
246 JSR PC,EMUS25 

247 AQOQ R4,R) 


248 Adc R@ 


SMLOUS 


249 
250 
251 
252 
2535 
254 
255 
256 
257 
258 
259 
26 
261 
262 
263 
264 
269 
266 
267 
26d 
269 
276 
271 
272 
275 
274 
275 
276 
277 
278 


279 
280 


284 
282 
283 
204 
285 
286 
287 
286 
289 
2908 
291 
292 
298 
294 
295 
296 
297 
298 
299 
508 
384 
$02 
503 


o4s4 
64356 
6444 
6442 
6444 
6446 
O49¢ 
6452 
0496 
6496 
64623 


0404 
6466 


6472 
6474 
6476 
6580 
652 
6504 
6506 
6510 
6512 
6614 
6516 
6520 
e522 
6524 
6526 
655¢ 
6552 
69594 
6636 
654¢ 
054@ 
6544 
6546 


206503 
ag6iae 
dvblul 
04614 
1%34903 
ge6ses 
O06102 
206101 
026180 
408304 
162704 
voaee 
639458 
022704 
280377 
002445 
125803 
1502083 
eases 
105002 
1501¢2 
“eeasea2 
105801 
150801 
000801 
125000 
15a4208 
oeasou 
286226 
Besbge 
WU6¥O1 
g8eagge2 
“vveves 
ovs5as 
025502 
vv5Sel 
od55ae0 
123446 


NOMS2683 


ADD 
AoC 
AOC 
MOV 
MOV 
JSR 
40D 
ADC 
Ap0 
AOC 
ADC 
SQV 
MOV 
JSR 
AOD 
AOO 
ADC 
MOV 
eENOC 
ASL 
ROL 
ROL 
ROW 
BCS 
ASL 
ROL 
ROL 
KO. 
DEC 
SUB 


BLE 
CMP 


BLT 

CLRB 
81S8 
SWAB 
CLRB 
8158 
SwAs 
CLR 
BIS8 
SwAs 
CLRa 
BISs 
SwAas 
ROR 

ROR 


“ROR 


KOR 
KOR 
ADC 
AOC 
AOC 
aoc 
BCS 
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Av2(5P),°(SP) 

BoO+2(SP),R4 IGET Awe} 
PC,EMuUS28 

R4,Ri 


A(SP),°( SP) 
Boded(SP),R4 GET AjeBy 
PC,EMUS2d . 


C3P)%,R4 GET SUM OF EXPONENTS 
RJ FSHIFT QUT NORMAL BIT 
RO 


NOMS28 JUMP IF IT wAS FOUND 
R3 


RO IMUST PAVE GOT IT NOW 
R4 PADJUST EXPONENT 
#200¢R4 JTAKRE OUT ONE OF THE EXCESS 128'8 


UNDS28 sJJUMP IF UNDERFLOW 
as77—eR4 


OYRS2@e JIJUMP ITF OVERFLOW 
R2,RS PSHIFT FRACTION RIGHT 


CaP)* IGET PRODUCT SIGN 
RO FINSERT IT IN RESULT 


RS BROUND RESULT 


R® 
OVis2e FJUMP IF OVERFLOW UN ROUND 


$ML005 


3a4 
3a5 


346 
307 
308 


309 
312 
$14 


Si2 
313 
314 


345 
316 


317 
318 


319 
520 
S2i 
322 
323 
324 
325 
326 
327 


328 
329 
338 
S34 
S32 


333 
354 
535 
336 


337 
3358 
339 


348 
5941 
$42 
343 
344 


345 


346 
347 


6550 
0552 


6556 
6562 
6566 


6572 
65/74 
6576 


6662 
6684 
56606 


6612 
6614 


6622 
6622 


6626 
66984 
6632 
6654 
6636 


6649 
6642 
6644 


6652 
6652 
6654 
6656 
666¢ 


6664 
6606 
6679 
6672 


6676 
6702 
6702 


0706 
67\0 
6712 
6714 
6716 
6728 
6722 


6726 


102445 
0ia668 
wdadi{e 
912166 
220016 
122866 
VUBV28 
212866 
YBG@22 
wi20e5 
0i2o0a4 
262796 
v@euiea 
CdB196 
205746 
212700 
G85005 
OUR4HE 
ei27ee0 
“eseas 
605726 
004567 
093178 
2858008 
Vd5ee) 
eesage 
ee5ae3 
e0e743 


ee62e4 
12s822 
0666¢35 
weaved 
“e552 
e551 
ed6550¢ 
ee55u5 
2666G2 
268822 
605501 
ed65ee 
225505 
Q666004 
O8gv016 
e050" 
@eso¢9 
v66oeu 
geeei4 
025905 
vobens 
eievue 
d06v¢e1 
veouue2 
206003 
085560 
“veuerea 
83564 


OuTS$e2et 


OvVigcel 
Ovk $268 


URWUS28% 


ElLLSest 


LZE2s2ut 


ML TS288 


MTis263 


Xas2et 


Bys 
MOV 


MOV 
MOV 


MOV 
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OViSea 


R@,RESLT CSP) FPUT OUT ANSWER 


RY,RESLT*%2 (SP) 


R2,RCOSLT*4(SP) 

RS,RESLT*6 (SP) 

(SP)*,R5 

(SP)*,h4 

#4,,9P FRLUSR TOP ARGUMENT 
@CR4) + FRETURN 

#(S$P) FAKE SIGN 

#5205,R2 PERROR 3,40 

ECL S$<8 

#5005,R0 PERROR 576 

(SP) ¢ FLUSH SIGN 

RO,astkRRA CALL ERROR 

RQ TCLEAR HIGRM ONDER RESULT 
RY ICLEAR LOw ORDER 

R2 

RS 

QUTS$28 

EAESNULDIV 

R4 PTEST NEXT MULTIPLIER BIT 
xas2y JUMP IF IT 18 2 
Ae604(SP),R3 PALO IN MULTIPLICAND 
R2 

R4 

RQ 

KS PSAVE OVERFLOW 
A+4e4(SP),R2 

RI 

RY 


RS 
Av244(SP),R14 


R@ 

R5 

Aeue4 (SP) ,RY 

RS 

KS FRECOVER OVERFLOW IF ANY 
RO INOW SHIFT PRODULT 
R4 

Re 

RS 

24SP) FCOUNT LOOP 

MLET$2CR8 FAGAIN PLEASE 
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348 60759 OdGee7 KTS PC PRETURN TO CALLER 

349 6732 wdSs60 MT2s288 DEC 2¢SP) 1DO ONLY 15 BITS TAYS Pass 
edsabee? 

352 6736 646204 MTUS2HEI ASR R4 TEST NEXT MULTIPLIER BIT 

$54 07490 1630¢7 BCC XdvSe8 FJJUMP IF v 

$52 6742 066601 ADV Ae2e4(SP),Ri PUSE ONLY MIGH URDER MULTIPLICAN 
600016 

335 6746 @85900 AOC Ru 

354 07359 865549 AOC R5 

355 0752 w6shbue AdU Awged(SP),RE 
d4G014 

$96 6756 24050965 AOC R3 

357 6760 46205 Xavs2et Age RS PRECOVER ANY OVERFLOW 

358 6762 yue60aa ROK RO 

359 67646 weouel ROR R4 

360 6766 we6ec2 ROR Re 

361 6774 vd6uns . KOR R 

362 0772 005566 wEC 2(SP) COUNT LOOP 
weaved 

363 6776 683957 BGT M1O§28 

364 7g00 uve2o7 nTS PC FRETURN TO CALLER 

365 et NOC 

366 elFoOF EAE 

367 EMUS2B! CLR @SP CLEAR PRODUCT 

3608 TST ORG 

369 CEU MZ929 PJUMP IF MULTIPLIER @ 

370 BGT MPLS28 

S71 TST 2(5P) PIEST MULTIPLICAND 

372 BbEQ MZ$§28 jJuUMP IF @ 

373 BGT MNGS28 JFJUMP IF ote 

374 . ADD (R4)*,@SP FCURRECT 2'S COMPLEMENT 

375 AoD 2(SF),@SF 

376 BR EMLSeB8 

377 MPL S268 TST 2(8P) TEST MULTIPLICAND 

378 bEQ MZ$28 JUMP IF @ 

379 eGT MLUS2B %FIUMP IF « 

388 ADD (R4)%,@SP 

381 Ar EMLS$<¢8 

382 MNUS2Z8E ADD 2(SP),¢@SF 

3ad MLUS288 TST (R4)* POINT TO MUL 

384 EML§288 MOV 2(SP),@R4 MULTIPLY 

385 MOV ~(R4),2(5P) GET PROUUCT 

386 AOD #(R4),@SP 

387 TST (Ré)* PPOINT TQ MQ 

388 JMP @RS RETURN 

389 M7$26¢ CLK 2(SP) PRETURN @ 

398 JMP @n5 

391 eENDC 

392 o TP OF MULDIV 

393 EMUS28% CLR # (SP) CLEAR HIGH PRODUCT 

394 TST R4 TEST MULTIPLICAND 

395 BEQ MZ$26 }JUMP IF g 

396 BGT MPL$28 Je 

397 TS! 4 (SP) PTEST MULTIPLIER 

396 bEG MZ$29 IJUMP IF @ 

9G BGT MNY S28 le 


420 BR MNGS28 


SMLOOS 


4a 
4v2 
403 
404 
405 
426 
407 
408 
4a9 
410 
411 
412 
413 
414 
43$ 
416 
417 


MPLS2S I 


MNUSZEE 
MNIS285 
ML US2e8 
MONS283 


MZ%25 8% 


TST 
BEG 
BGT 
AOD 
BR 
ADU 
Avu 
eWORD 
ADL 
MOY 
KTS 
CLR 
CLR 
BR 
eEnDd 
eENOC 
eENOC 
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4(SP) PTEST MULTIPLIER 

MZ$29 JUMP IF @ 

MLQS28 Je 

Rd, @9P 

MLGS28 

R4,@5P 

4(SP),@S?P 

@70406,4 PaMUL 4(SP),R4 #GET PRO 
(SP)*,R4 PADD IN MIGH URDER PARTS 
(SP)*,@SP FFLUSH MULTIPLIER 

PC FRETURN 

R4 RESULT IS @ 
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| eTITLE SMLIUS 

2 elFOF CNUS29 

3 eGLOBL SMLI*+SERR 

4 } $MLI esew [INTEGER MULTIPLY 

5 ! 

6: } SMLI VERSA 

7 ; 

8 j COPYRIGHT 1971, VIGITAL EQUIPMET CURP,, MAYNARD, MASS, 

9 ’ CALLED IN THE POLISH MODE 

12 } REPLACE THE TwQ INTEGERS ON THE TOP OF THE STACK 

ii , WITH THEIR PROOUCT 

12 eeoved RQaxg 

13 eBavcel Riax{ 

14 veaded R28x2 

15 eovvasd 3x3 

{6 yogued haere 

{7 weabes R5ax5 

16 ee) SP 8x6 

19 1779144 SRS29014773414 

20 177304 MQ8177304 

21 eIPNDF EAERMULOLV 

22 17002 CO5000 SrLIs CLR RY CLEAR PROVUCT SIGN 

25 17084 012601 MOV (SP)%,R1 PGET MULTIPLICAND 

24 172806 B830G3 BGT Pis29 SJUMP IF « 

25 17610 004455 BEQ ZERS29 FJUMP IF ANSWER I8 ZERU 

26 17812 05200 ING ROD NOTE «& 

27 17014 eus4ai NEG R4 

28 17836 wiiOud P{S29t MOV @SP,K3 FGET MULTIPLIER 

29 17928 wusdes BGT P2$29 

$u 17022 401452 BEG ZERS$E9 

31 17024 wes2gea INC RY }FORM RESULT SIGN 

32 17026 05403 NEG RS 

33 178$@ 019446 P2se98 MOV R4,e(SP) SAVE R4 

34 17032 012704 MOV #8,,K4 FSET UP FOR LOW ETGnT BITS 
veovie 

38 17096 o2¢igas CMP Ri,rs 

36 17040 202008 BGE CLRS29 FJUMP IF MULTIPLIER SMALLER 

$7 17042 @1¢1¢2 MOV R1i,Re PIF NOT MAKE If SO 

38 17244 wladsel MOV R3,R3 

39 17046 elegas MOV K2,R95 

42 17098 wv@Sae2 CLRs29t CLR Re ICLEAR HIGH ORDER PRODUCT 

44 17092 w860a2 MULS29% ROR R2 HSHIFY PRODUCT 

42 17094 ed620$ ROR R3 

43 17056 103001 6CC CYcs29 JFJUMP IF MULTIPLIER BIT IS @ 

44 17960 B60102 ADO R1i,Re ADU IN MULTIPLICAND 

45 17962 005804 CyCs293 DEC R4 COUNT LOUP 

46 17y04 923572 BGT MUL S29 

47 17406 412004 MOV (3P)*,R4 FRESTURE R4 

48 17470 108708 TSTB RS TEST HIGH MULTIPLIER 

49 17072 wv1026 BNE Uvyrese29 FJUMP IF MULTIPLIER NOT GONE 

5u 17474 1502a5 BISA R2,ks PMOVE PRODUCT RIGHT 

51 17476 evades Swag RS 

52 17180 189002 CLRB R2 

55 17102 ovasoe SwAg R2 

54 17104 veseve ASR Ke FONE LAST SHIFT 

55 171486 wuie2d BNE OVARS29 FJUMP IF PROOUCT EACEEDS 15 BITS 


So 17110 o8600a3 ROR a3 


SMLI6S 


57 
58 
59 
62 
64 
62 
63 
64 
65 
66 
67 
68 
69 
7@ 
71 
72 
78 
74 
73 
76 
77 
78 
79 
8 
81 
82 
83 
84 
85 
86 
87 
88 
89 
92 
94 
92 


93 
94 
95 
96 


17142 
17114 
17416 
17124 
47122 
17124 
17126 
171430 
17152 
17154 
17156 
17142 
17142 
17144 
17146 


17152 
17152 


171496 
17109 
17161 


e854ae 
1880015 
ovbvau 
1234¢2 
ves4es 
162411 
B1ASs{S 
@euiss 
0O84eS 
1220905 
“e6OR0 
103772 
veA4ee2 
065046 
0AR194 


eosa16 
0043567 
“s2630 
000134 
4us 
016 


QuTs2ys 


NGMS295 


ZERS293 


SML13 


SML 13 


QVR$29% 


NEG 
BPL 
KOR 
ocs 
NEG 
avs 
MOV 
JmMP 


MACRU VRU4°14 U7eSEPw7!e2 11949 PALE Bde 


RS iMAKE * 

OvR$e9 FJUMP IF TUO BIG 
RO IGET PRODUCT SIGN 
OUT$€9 JJUMP IF = 

RS IMAKE * 

OVRS29 


RS,eSP PMOVE OUT RESULT 
@(R4)% “FJRETURN 


RS FTEST FOR OCTAL igeovea 
OVRS29 FJUMP IF NOT 
RY ITEST FOR NEGATIVE RESULT 


OUTS29 FYES, WE CAN HANULE THIS 
OVRS§29 FOVERFLOW 

esP PCLEAR PROOUCT 

@(R4)¢ FRETURN 


SMLI CODE FOR Tre Eae 


elFOF 
MOV 
MOV 
MOY 
MOV 
BITS 
BE 
JmMP 
eENDC 


EAE 

aMQ,8@ FGET 4@ AQORESS 

(SP) *, (RU) + PMULTIPLIJER TQ MQ 
(SP)*,@kKO IMULTIPLICANOD TO MUL 
@(RG),e (SP) PRODUCT TU STACK 
#2,S5$29 


UVR$29 FIUMP IF PRODUCT NUT SINGLE PRECISION 
@(R4)* PRETURN TO USER 


SMLI FOR THE MULUIV 


a LFOF 
MOV 
e WORD 
MOV 
BCS 
JMP 
2ENOC 
CLR 
JSK 


JMP 

eBYTE 
eBYTE 
eENDOC 


MULOSV 

(SP)*,Ru PMUVE MULTIFLIER 
O7eeee FPPMUL (SP) 4,R4 MMULTIPLY 
Ri,e(SP) PUSH PRUDUCT 
OQVeseG FJUMP IF OVERFLOW 

e(R4) + 

(SP) RETURN @ 

R5,$ERR FERROR 3,44 

@C(R4) + 

3 

14, 


SMLROS 


womor~ own GA 


17102 
17104 


17166 


17172 
17174 
17176 
i/2uea 
17202 
17204 
17206 
17212 
17212 
17214 


17222 
17222 


17226 


“4ebad 
geavel 
22ukoae2 
veneds 
eeeed4 
eonKees 
Oduea6 
“weave? 
177$@a4 
177$11 
177914 
OseaKusd 
ouvuie 
odAoy4 
wpe 
“duvpe 


612446 
vil es4e6 


vietee 
d6ade4 
wibdde2 
w06146 
¥d50¢e 
rdadsee 
{lvelo 
2@15¢7 
ddudel 
Cv6eK2 
12S5eve 
19660¢2 
adavis 
0édS008 
15609 
eduubie2 
664ses 


~~ == Ge Te Be Ge Te BS GR Te 


Auli, 
Sei2z. 


RESULT S68, 


STUNS2 


SMLRE 


SHLAA I 


eTITLE 
elk OF 
eubUol 
SMLR 


S4LR 


SMLROS 
CNOSSQ 


MACRO VrRvae$4 S7"SEPe72 {1245 PAVE 35 


SMLR SERRA 
THE MEAL MULTIPLY ROUTINE 


VOOSA 


COPYRIGHT 1974, WIGITAL EQUIPMENT CORP,, MAYNARD, MASS, 


CALLED IN POLISH MOLE, 
REPLACES THE TOP TWO REALS ON THE STACK 
WITH THEIR PRODUCT, 


PESETF 
PILoF (SP) +, Fa IGET MULTIPLICAN 
PIMULF (SP) +,FU PMULTIPLY 


PESTF Fase (SP) PPROOUCT TU STAC 


POMIFT MULTIPLICANY 
PREEP SIGN 
PCLEAR EXPCNENT 


PREEP MULTAPLICAND EXPONENT 
JUMP ITF ANSWER IS ZERU 
PINSERT NORMAL b1T 


K@axd 

RY eX) 

R29X%2 

A3axs 

NA4EK4 

R5ax5 

SPaX6 

PCeXx7 

MQ81773G4 
SREIT7S14 
LSHaL177544 

Fgaxe 

elFOF FRU 

«WORD 17ave4 
«40RD 172426 
e¥ORD 171846 
ewORD 174046 

JMP #( R64 
eENDC 

elFNGF FRU 

MOV R4,e(SP) 
MOY R5,e(SP) 

e LF NDF EAERNULOILYV 
MQV Awge4(SP),R2 
ASL n2 

ROL (SP) 

CLR w(SP) 

SwAd Re 

MOVA R2,@oP 

bEW ZELSSC 

dEC 

ROR Re 

CLRB Re 

Bl$3 Av¥3(9P),%2 
CLR RS 

BISs At2(9P),R3 
SaAs RS 


SMLROS 


55 
56 
57 


17202 
17294 
17244 


17244 
17246 


47202 
172d4 
17296 


17262 
17264 


17272 
17274 
17380 
17304 
17314 
17314 
17320 


266366 
COue14 
605966 
weubge 
105766 
e8avis 
084467 
“ub6066 
eaeuia 
vesoee 
GOS0aL 
16604 
weee16 
0614406 
212705 B82ngsus 
ovee17 
604767 
280220 
w04767 
wouit6ea 
016004 dezssult 
weet 
0127038 
08nbe7 
ova767 
eaeriad 
024767 
O2B144 
“wo2a6e4 
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ASL B(SP) SHIFT HIGH MULTIPLIER 
ADC SIGN(SP) SGET PRQUUCT SIGN 


TST b+, (9P) 


se ZEyssa FJUMP ITF ZERO 

ROR BCSP) SIGN 1S NOW ZERV 

CLR RQ ICLEAR PRODUCT 

CLR R{ 

MOV Be2(SP),k4 FGET LOW QRDER MULTIPLIER 
BEQ 82725850 

JSR PC,MT@S$S¢ 

JSR PC,»MLYS3 POO LAST LUW BIT FULL PRECISION 
MQV B(SP),R4 GET AIGH OURKDER BITS 
MOV #7,R9 ITHERE ARE ONLY SEVEN UF THEM 
JSR PC ,MLT S30 

JSR PC »MI{$30 160 00 TRE NORMAL BIT 
AOU (9P)4%,R4 FADD EXPUNENTS 

eENOC 

Eat CODE 

a lFOF EAg 

(AL+AZe2eem 1 Oe (OLeb2wdweel 6) 

MOV #MQ,%4 IPOINT TO MQ 

MQV #102000,%5 GET LEADING Blt 

MOV B+2e4(SP) ,@k4 7LOw ORDER B TU MQ 
MQV BegeS(SP),9(R4) FHIGR To AC 

BEQ ZERSSQ FJUMP IF @ 

INC easy IGET SIGN 

RORB @#SR 

ROL (SP) ISAVE IT 

MOV (R4)%,7(9P) SAVE EXPONENT 

CLRB esp RIGHT JUSTIFY IT 

SwAB esr 

MOV #7 ,@8LSH PMUVE FRACTION LEFT 
MOV era," (SP) PSAVE Be 

BIS RO,e (RG) PINSERT NORMAL BIT 
MOV (R4)%,=(9P) HSAVE BI 

MOV A244 (SP) ,@k4 PTLUW URDER A TU MG 
MOV Ae4e4(Sk),9(R4) FHIGH TO AL 

BED Zeesou FJUMP ITF A 

INC @#L5M GET SIGN 

KORS @#SR 

ane 6 (SP) GET RESULT SIGN 

MOV @K4,%3 FIGET EXPONENT 

CLR3 RS 

Swag RS 


SMLR@S MACRO VRO4014 B7SSEPe72 11945 PALE 35 


100 
104 
id2 


A2NSSaS 


AaPSssel 
Agé3305 


BeNS$ses 


Barssol 


B2¢S5aN 


Adv RS, 4aC0SP) PGET SUM OF EXPONENTS 
MOV #7, @RL SH PLEFT JUSTIFY FRACTION 
MOV (R4)*,R2 PSAVE Al 
BIS R5,R2 PINSERT NOKMAL BIT 

CLR RO ICLEAR PROOUCT 

CLR Ri 

MOV (R4)*,RS PSAVE a2 

BNE A2NS$SO 

TST #(R4) FPOINT TO MQ 

BR A2Z$5@ IFSHORT CUT 

MOV  @SP,@R4 IGET Blwa2 

CMP a(R4) ,2(R4) pPOINT TQ AC 

ADD R3,@R4 JFA2, 2'S COMP CORRECTION 

TST RS 

BPL A2Pssa 

ADD @SP,@R4 184, CORRECTION 

MOV (R4)¢,R4 FHIGH PRUDUCT To RI 
MoV 2(SP),(R4) 4 #82 Tu MQ 

BNE B2NS5G 

TST w(K 4) IPOINT TO MQ 

BR 82Z$5@ JSHORT CUT 

MOV R2,@R4 IGET Baeal 

CmP =(R4),0(R4) sPOINT TO AC 

ADO 2(3SP),@k4 HB2, CORRECTION 

TST 2(8P) 

BPL B2P$sa FJUMP IF B2 + 

AOD R2,@R4 FAL, CORRECTION 

ADD (R4)¢,R4 pHIGH PRODUCT TO R41 
AoC RG 

MOV R2,(Raje pas TO mG 

ADU R2,RO 

MoV @3P,@R4 IGET AlwBt 

ADO (SP)*,Ru 

ADD e(R4),R1 

Aoc Ke 

Aoo w(R4),RU paceRy 

TST (SP)¢ IPOP 82 

MOV (3P)%,R4 IGET SUM OF EXPONENTS 
eENDC 

MUL/OIV CUDE 

s lFOF MULDAV 

CAL+A2¢2e¥e 16) e (Bi +bB2eeeeel6) 

MOV Be204(SP),R5 pLOwW ORDER B 

MOV 8+004($P),R4 SHIGH ORDER 

BEG ZERSSe 

aWORD @73427,1 Me ASAC #1 ,R4 
ROL « (SP) PSAVE IT 

MOV R4,e(SP) SSAVE EXPONENT 

CLRB esp 

SWAB @sP FRIGHT JUSTIFY 

«WORD 073427,7 i} ASHC H7,R4 
MOV RS,e(SP) PSAVE B2 

BIS #1oaeae,RA _PINSERT NORMAL BIT 
MOV R4,e (SP) pSAVE Bt 

MOV Ae2e4(SF),R3 ILET AQ 

MOV A#Qe4(8P),R2 PGET Al 

BEG ZE2880 PJUMP IF RESULT To BE @ 


#GET SIG 


PLEFY JU 
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457 e WORD 7320751 yt ASHC #1,R2 IGET SIG 

158 AoC 6(SP) GET RESULT SIGN 

159 MQV R2,R0 IGET EXPONENT 

168 CLLRS Ka 

4161 Swap RY 

162 ADU Ra, 4S0SP) PGET SUM OF EXPONENTS 

163 aNORD W732¢€7,7 Ni ASHC #7 ,R2 POET Al 

164 b1S #100048,%2 PINSERT NORMAL BIT 

165 CLR ROG ICLEAR ACCUMULATUR 

166 CLR R4 

167 1$1 wd CHECK A? 

1638 be A2Zt5y FEJUMP IF 2 

169 «WORD U7d403 FF MUL RopR4 GET A284 

47% ADU Ro_,pR4 

174 T3T RY 

172 SPL A2Pshu *#JUMP ITF Ad & 

173 ADU @SP,%4 Pot CORRECTION 

174 Aorsdutr MOV R4,R1 PaAQeh{ eQuerjio 

175 Agdgdsut MOV 2(SP),R4 $62 TO MULTIPLItr 

176 BEW B2Le4e ETUMP Ib BO 

177 e NORD “a7dAado Fy MUL M24 IGET Al¥*Be 

178 AQv 2(SP),R4 

179 TsT 2sP/ 

{ag BPL B2rpsoa JJuPP IF Be « 

181i AOU Ke,k4 PAL CORRECTION 

{82 Berssot AOD Ka,R4 PAL*O2eQwendé 

133 AOC RA 

{64 Baéhsut MOV m2,Rr4 AY TU MULTIPLIER 

185 AOD Ke,prd 

180 2 WOR 270416 7) MUL #SP,R4 FGET Alen} 

187 ADU (SP) +,k¢ 

143 ADD mo, RI PLOW ORDER AL}BY 

169 Aoc kV 

194 ADU Ko, PAIGM URDER Ajepl 

191 TST (SP) * PUP Se 

192 MQV (SF) *,R4 SGET SUM OF EXPONENTS 

193 sENODC 

194 7322 B@dolvul ROL RY PSHIFT QUT NORMAL BIT 

199 7$2a @solva ROL KY 

196 7326 L06dssad 8cs NUM$SR FIUMP Te Tt waS FOUND 

197 73$3$a vublet ROL Rd 

196 7342 aonliee ROL KD iMUST WAVE GUI JT NOW 

199 73484 wedsoue DEC Ra POaOJUST EXPONENT 

200 7396 1627245 NWOMgeds4s Sub H2A¢eR4 FTAKE UT ONE OF TRE EXCESS 1128'S 
OVeGg eA 

evi 7342 eus4dec a UNQHOS FlURP LF UNDERFL Uw 

242 7344 vc2/44 CMP HOTT PRGA 
wewos?7 

208 7392 “de4e7 BLT UvReo? FIUMP ITF OVERFLOW 

244 7§22 Leseal CLRG Ri 

24d 7394 Jovwel ood ried 

206 7350 werd) SwWha R14 

207 7894 1050s CLRa RU 

208 7302 19v4a0 bios n4,R0 

249 7306 wuvona dpwAB mar) 

218 7506 weoved ROK (or) ¢ PGET PRODUCT SIGN 


211 73/7u eos ROK Rd PINSERT IY IN RESULT 


SMLAWD 


212 
213 
214 
é219 
216 
217 


218 


219 
220 
221 
ace 
225 
224 
229 
226 
227 
228 
229 


250 
2o1 


ese 
255 


254 
235 
256 
237 
233 
239 
244 
241i 
242 
243 
244 
245 
246 
247 
248 
249 
256 
251 
252 
253 
254 
295 
256 
207 
223 
259 
200 
261 
262 


73/2 
7374 
1376 
Jadu 
7402 
7404 


Vala 


7414 
7alo 
74240 
7422 


7424 
7426 
7490 
7432 


7496 
7449 


7444 
7446 


7492 
7494 
7496 


7469 
74602 
7404 
7 A606 
7a7@ 
7472 
74/6 
7476 
7950p 
7502 
7504 
7506 
7$1a 
7512 
7514 
7516 
752¢ 
7522 
7524 
7926 
75350 
7532 


wdéoeut 
goessali 
Vdbove 
105444 
1w2e443 
Yiwdtoo 
Odeb1a 
#12166 
“v“ndie2 
C1205 
wigzoud 
¥22626 
wualsa 


W22026 
a00414 
w0d/726 
012700 
vous 
42u4ed 
012708 
wesaas 
£45726 
024967 
We2sa4d 
663000 
Ya50e1 
ovu/se2 


ed6e204 
193024 
eoasvih 
9O59e0 
105426 
260200 
086000 
A061 
WwSSCS 
003366 
200207 
C6428 
weyebl 
O2U770 
weeeas 
Osu 
e6aeca 
vdeunY 
On6HeE1 
wOSdK9 
@4S0714 
eveadr7 


Quissas 


ZEZSSUs 
ZEISS! 
UVA$sus 
Ovissui 
UNUS SUS 
ECLSSOt 


ZERS$cut 


MLTSS68 


MTIS$Sui 


XZSSat 


Covssas 


MTUSS05 


XZ0SSC% 


&OK 
auc 
ADC 
ocs 
EVS 
MOV 


MOV 


OVissa 
OV1592 


R@,RESLTUSP) 
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PJUMP ITF OVERFLOW UN RUUND 


PUT OUT ANSWER 


RI,RESLT*#2 (SP) 


(SP) *,R5 
(SP) *%,R4 
(SP)%, (SP) + 


@(RAl+ 


PRPLUSA TUP ARGUMENT 
FRETURN 


EAEIMULOLY 


(SP)*,(SP)+ 


(SP)*, (SP) + 


pPOUP 81,82 


JPOP SIGN AND EXPONENT 


ZERS3o 

(SP) * FFLUSH SIGN 

#62059, R PERROK Sete 

ECL $5 

#3409,R0 FERROR Se7 

(SP)* PFLUSH SIGN 

RS,SGRRA CALL ERROR 

RO ICLEAR RESULT 

Ri 

OUTS3A 

EAEaMULOLY 

R4 PTEST NEXT MULTIPLIER BIT 

X33 JUMP IF IT IS @ 

R3,RE 

RQ 

Covssa 

R2,RO 

Rd INOw SHIFT PROOUCT 

R4 

RS FCOUNT LOOF 

MLTS$9@ JFAGAIN PLEASE 

PC PRETURN TO CALLER 

R2,RU FFIRST AOD OVERFLOWED RO 
SHOW THIS OVERFLOW TO SHIFT 

XBS30 

Ra FREDUCED PRECISION MULTIPLY 

X0085Q 

R2,RO JUSE ONLY BIG ORDER MULTIPLICAND 

R@ 

Ri 

RS. 

MTasda 

PC 
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\ eTITLE SNEGU2 

: a lFOF CNDS94 

; ’ 

4 } SNEG vowed 

5 ’ 

6 } GORFYRIGHT 1971,1972 DIGITAL EQUIPMENT CORPORATION, MAYNARD, MAS 

7 , 

8 eGLOBL SNGI¢+SNGR, INGOs SERR 

9 ; INTEGER, REAL ANU DOUBLE PRECISION NEGATION, 

10 ! CALLED IN THE PULIGSH MODE, 

11 } NEGATES THE ITEM ON TOP OF THE STACK, 

12 usedga RABX4 

1s weedes R5a%5 

14 vageas SPRXG6 

19 17594 wd6416 Snbl3 NEG esP PNEGATE AN ITEGER 

16 17836 122406 BVS QVRSS4 FJUMP IF {uaese 

17 17540 2201384 JP @(R4)* FRETURN 

18 17542 SNORE 

19 $7842 085716 SNv03 TST ese 

28 17844 481402 BEU ZERSS{ FIUMP IF @ TO AVOIU =a, 

21 17546 062716 AoD #1229000,@5P PINVERY FLOATING SIGN 
1uaeee 

22 17552 weaid4 ZERSS1E UMP e(RA)« 

23 17894 YG4567 OCvessit JSR R5,SCRR PERROR 3,11 
ou2226 

24 17860 wuelsa IMP @(R4) 4 

25 17862 22s eBYTE K) 

26 17563 013 eBYTE il, 


27 eENOC 


SPPRYU4 MACKYU VROG"14 B7ESEPR72 11840 PALE 38 


1 eTITLE SPRPROA 

2 eo IlFOF CNOS$93 

3 ; 

r r] SPOPRS V2Q4A 

5 i 

6 ) GOPYRIGHT 41971, DIWVITAR EQUIPMENT CORPURATION, MAYNARU,MASS 
7 ; 

8 ; 

9 waevad RAaXd 

iv WOnNYAL RYFKI 

41 WYVORe K2IK2 

i2 2OvOGS RGaXS 

13 WdhOGS Rakxa 

14 VBBUVBS RSFX5 

15 vousgo SPBKO 

16 eooese? PCBK7 

17 

13 ; This RUUTINE REMOVES TAO OR FOUR ITEMS FROM THE STACK 
19 } AND PLACES Them Iw REGISTERS R@wR3. IT 1S USED IN EXTER 
20 } FUNCTIUNS TQ RETYVRN THE FUNCTION VALUE IN THE REGISTERS 
2i j 

22 eGLOSL SPUPKS,SPUPR4,SPOPRS 

23 ; 

24 17576 SPUPKD) 

25 17876 12000 SPUPR4AS MOV (SP)*,RO PPUP FOUR wORDS 

26 47602 wizou) | MOV (SP)*,RL 

27 17602 vi2one mOV (SP) *,Re2 

28 17604 wizeons MOV (SP)*,RS 

29 17606 284134 JMP @(R4) 6 

$0 17610 @12600 SPUPKSE MOV (SP)*,RO pPOP TwO wUORDS 

34. 17612 wl2eet MOV (SP)*,R1 

$2 17614 Bealsa JMP @(R4AI + 

33 ; 


34 eENDC 


$ROUEe 


CoOQnuoe Ua GH & 


17616 
17622 
17626 
17692 
17696 


vdavad 
eoudyo 
eaguan 
“ONGG1 


216646 
ebgkee 
7016646 
HOgdv2 
e85866 
ag@adad 
045066 
“vvaees 
veaise 


SFU 


GRUE 


eTITLe 
el POF 
eGLOSL 
SRD 


dRU 
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$RivA2 

CNDSU4 

§$RD 

THE MEAL TO DOUBLE PRECISIUN CUNVERTER 


VedaA 


COPYRIGHT 1971, WIGITAL EQUIPMENT CORP,., MAYNARD, MASS, 
APPEND ZEROS TO TRE TOP STACK ITEM TO 
MAKE 1T ODUUBLE PRECISION FORMAT 


R4BX%4 
SP8xX%6 
FQsxod 
Pimxt 
eo TF OF 
eWNORD 
eWORY 
eWNURD 
wMP 
eENDC 
e LFNOF 
MOY 


MQV 
CLR 
CLR 
JMP 


2ENOC 
eENOC 


FRU 

170011 FFSETO 

177426 FILUCFD (SP)4.Fe 
174048 7sSTO Far=(5P) 


SCONVERT ARG 


O(R4)+ 

FPU 

208P),°(5F) MOVE LOW ORDER PART 
2(SP),=(SP) PMOVE HIGH OROER PART 


4(SPF) JFINSERT TRAILING ZEROS 
6(5P) 


@OCR4) 4 


BRI UG MACRU Vedd"149 B7eStEP=72 11545 PALE au 


i eTITke $nr[aa 
2 elF OF CNU$95 
3 eGLOoL SH],20T, dER 
é } REAL TO INTEWER CONVERSION, 
5 H 
fs) i tn VAOGA 
7 } 
8 U COPYRIGHT $9/73,1972 DIGITAL EWUIPMENT CORP,, MAYNARD, MA 
9 ; ARGUMENT IS A DUUBLE WORD REAL NUMGER UN THE TOP 
12 } ur THe STACKe 
hi ; TRUNCATE LT AND CONVERT IT TU AN INTEGER ON THE 
12 } TOP OF THr STACKe 
13 “vupeed ROSELO 
14 OCaKnel RL BX 
15 vaodie RZEXK2 
16 VdAUES R35xX3 
17 woken4 KaBKa 
1a Ovdues K9BKZD 
19 auadus SPEXDd 
2u 177904 MQB1773u4 
2i 177314 LSHB1L77344 
22 wdesEd FAGLY 
28 elFOF FRU 
24 $pd1 SETO ; DOUBLE PRECISION 
25 bR RIuads5) , 
26 SRLS SETF ' SINGLE PRECISION 
27 RTJUSS5$ SETI } -  §HORYT INTEGERS 
28 LOO (3P)*,F VE GET ARGUMENT 
29 STCyl Pd,w(SP)} CONVERT To STACK 
30 JMP @(RS) 4} RETURN 
Si eENQC 
32 eIFNDF FRU 
33 17644 BLeoK6 Enlk MOV (3P)*%,2(9F)}3 TRUNCATE TU REAL FORMAT 
vayvre 
34 17644 012065 MOY (SP)*,2(9F) 
C8eAeS2 
35 31769@ wdSdae SRLS CLR R2 PCLEAR wORAR SPACE 
30 17692 645222 INC R2 jSET UP NORMAL BIT 
37 17694 o126a1 MOV (oP) *,R1 jGtT Reak ARGUMENT 
38 176096 06116 ROL @SF PGET SIGN 
39 17604 “dolel ROL Ri PAND 
40 1766¢ wd6146 ROL #(S$P) save IT 
41 17666 11@178 MOVES R1L,Ro GET HIGH URDER FRACTION 
42 17606 judvel CLRB m1 
45 17670 weudsyl awAd Re) GET EXPGNENT 
44 17672 62/01 oun #2017 RL 
AvvAee |} 
45 17676 2024383 OLT ZER$O5 FJUMP IF IT) IS TYO SMALL 
46 177040 wolals BEW DNESSS 
47 17702 vee7el impr H#lLoO,ewd 
wdadt{/ 
48 17746 4d2422 BLT UvyRbd5 FJUMP IF IT 18 TUG Bly 
49 17714 “buidsas Swhd RS PRORM 16 BITS OF HIGH URDER FHACTIUN 
54 417712 1dd50us Chur ie § 
51 17714 15966us oiS6 S(SPI,RS 
goadas 


92 177 e4 St iSs5e 


$R1u4 


1772 
17722 
17724 
17726 


17738¢ 
17732 
17754 
17736 
17744 
17742 
17744 
17746 
1779¢ 
17792 
17754 
17756 


17762 
17704 
17765 
1775 
17778 


w¥oled 
auvoine 
YO5su 1 
445574 


“ed54ane 
14240 
w@sou7 
edeveds 
10341 
€454¢2 
vlud{o 
“wde1gd 
yeh 26 
1u3774 
vth746 
64967 
“dened 
vanse) 

das 

des 
dere 
vAns62 


VELSS53 


UNESIO3 


SGN$5538 


OuTsdo? 
NGUMSS58E 


UVRBSS3 


ZERS$S53 


o LENDF 
ROL 
ROL 
VEC 
BGT 
eENOC 


EAE COVE 


oe LFOF 
MOV 
MV 
MOV 
MOY 
MOV 
eENUC 
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EAcaMULUSY 


RS IGET NEXT BIT 
R2 
RY (DECREASE EXPONENT 


SFT$55 FQ AGAIN IF WOT DUNE 


EAE 

&MG,RQ FPOINT TO MQ 

RS,@RA FINSERT FRACTION 
R2,w (RO) : 
R1,@8LSK SSPIFT Ler 
@RY,K2 FRESULT TO REG 


MULUTV COVE 


elf ur 
e4ORD 
eENDC 
NEG 
dvs 
BG 
ROR 
BCS 


MULDEV 
O7 S204 FPPASHE Ri pre 


Rea MAKE © 

NGM$OS JPJUMP LF PUSSIBLE NEGMAY 
OVR$S5 FJUMP IF MORE THAN 19 BITS 
(SP)* GET SIGN 

QUTSS5 FFJuUMP IF = 

R2 fe RESULT 

R2,@9F ISTORE INTEGER RESULT 
@(H4)+ FRETURN TO CALLER 

(SP)* 

OQUTSS$§ UK IF RESULT Tu BE = 

~ (SP) PF AKE SIGN 

RS,SERR JPERRUR 3,22 


ZERSSS 

3 

226 

Ke ANSWER TS @ 
SUV$355 


$SGL2 


OGnrD Wa GH 


17772 


17776 
2eud¢ 
20482 
20024 
20u06 
20uia 
2ua32 
2eei4 
20016 
2ud2a 


20uda 
2ea26 


) 24027 


eagead 
eeaees 
wvgwad 
VBAawbas 
016904 
¥0eG802 
212448 
o1e4ai 
a144a4 
g@6ia4 
Gasset 
gu53ea0 
163482 
142401 
eeaees 
004567 
004762 
0¢6285 

a 

044 


we we Se Ve UW 


==e “Se © Ge 2G Sse 8S Sse TS 


SNL S 


QOVASSOF 
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eTITLE S$SGL@2 
el FDF CND S56 


SNGL Vag2A 


CUPYRIGHT 1974, OVIUVITAL EQUIPMENT CORPORATION, MAYNARD,MASS 


eGLOBL SNGL«SERR 

THE FORTRAN SNGL FUNCTION 
CaLLING SEQUENCES 

JSR R5,SNGL 

oR A 

sWORD ARGUMENT AQDDRESS 


RETURNS THE ARGUMENT ROUNDED TO SINGLE 
PRECISON REAL FURMAT IN Ri, Ri, 


RZaX2 

Ri sxt 

K4RKd 

R58x5 

MOV 2(R5],k4 GET ADDRESS 
MOV (R4)%,R¢ ; IGET WIGH URDER 
MOV (R4)4,R4 IGET LQw ORDER 
MOV @RA,K4 FGET NEXT WORD 

ROL R4 IGET ROUND BIT 

AOC R 4 PROUND REAL 

Apc Rd 

BCcs OVRS36 FJUMP IF OVERFLOW UN RUUND 
BvS OVRSS6 

KTS RS RETURN TO CALLER 

JSR R5,3$CRK FERROR 4,12 

RTS R3 

aBYTE 4 

eBYTE 12. 

eENOC : 


SSING4 MACRO VRO4014 B7e8EPe72 111945 PAVE 42 


i sTITLE S$SINV4 

2 a lFOF CNUS97 

3 i] 

4 } SINCOS V2Q4A 

) } 

6 P GOPYRIGHT 1971,1972 DISITAL EQUIPMENT CORPORATION, MAYNARD, MAS 

7 } 

8 eGLUBL SIN, LOS] 

9 eIFNDF FRU 

16 eGLOBL SAUR?PSMLN,SSOR,SDOVA,SINTR, SPOLSH 

11 eENDC . 

12 , SIN cos THE REAL SIN AND CUSINE FUNCTIONS 

13s i] CALLING SEQUENCES . 

14 } JSR R5,S3N COR COS) 

15 ' BR A 

16 I 2wORD ARG ADDRESS 

17 pat 

ig } RETURNS SIN OR COS OF ARG IN RB AND Rj 

19 eoneee RQaXxg 

22 weuddl Le aL #| 

21 eeeeue R28x2 

22 V8BURS WKOEKS 

238 avoved mGaxd 

24 veeeas K5e8x5 

25 Qdeun6 SP 8x6 

26 wdavu7 PCaX7 

27 veneee FaRX® 

28 adanead Fier) 

2y yeatue F2"2%2 

3 oeuvres P3yars 

31 elFNDF  FPU ; 

$2 20052 0165204 Cose MOV 2(R5),R4 GET ARGUMENT ADDRESS 
“veadee 

35 200546 005046 CLR w (SP) IMAKE ROOM FOR QUADRANT FLAG 

34 200596 416446 MOV 2(R4),(SP) PUSH ARGUMENT 
odavee 

35 20042 vi1446 MOV @R4," (SP) 

36 202044 #012746 MOV #227733," (SP) PUSH PI/2 
6e77338 

37 20458 12746 MOV #040511,7(SP) 
0403511 

38 24094 204467 JS R4,3P0LSH ENTER POLISH MYDE 
001964 

39 204%R “wo2v10! eWORYD SADR» SNCS37 CUS (KX) SSIN(XOPT/2) 

2un62 weviou' 

4¢ 20094 v16524 SINS MOV 2(R5),R4 GET ARGUMENT ADDRESS 
wsevge 

41 24278 wesed6 CLR e(SPJ MAKE ROOM FOM QUAURANT FLAG 

42 20/72 616446 hOV 2(R4),=(SP) 
vuavee 

43 20476 611449 MQV e@R4,7 (SP) PPUSH ARGUMENT 

44 20100 606516 SNLS$S72 ASL ese REMOVE ANU SAVE SIGN 

45 20102 206066 ROR 4(9P) FIN GUADRANT FLAG 
é0ubus 

46 24106 296016 ROR esP 

47 20110 212746 MOV #007733," (SP) PUSH QeP] 


007735 
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48 20114 412746 MOV #049711," CSP) 
040741 

49 260122 0u4467 JSF K4,SP0LSN PENTER PULISH MovE 
@d1520 

Su 20124 wil3256! 24RD SUVR PX/2P] 

51 24126 @2u22e! ewORD DUPS$7  JF2 COPIES 

52 2bidu “dside! ewORW =SINTR = FINTCK/2PT) 

S$ 20102 wudedgs! owURD $5BR PFRACT(x/2P1) 

54 28194 v2n2dd4t eWURD X4857 PawFRACT(X/2P1) 

55 20196 weve2e! ewUROD DURSS7 #2 COPIES 

56 2ui4a o¥sl4e! 2 A4URD SINTR PINT CO*FRALT(K/2F1)) 

57 26142 w2aedo! 2 AORD QUD$SO7 FSAVE INT Cacevee) 

58 20144 “vueduat eWURD $S8R PYSFRACT(A*¥FRACT(X/2PI)) 

59 24146 weu2sa! eWORD OSTHSS7 FPREDUCE Y 10 Celed) 

6a 24194 wev2e22'uUsSe$s7s .wORD ouP$s97 J2 COPIES 

64 24192 veve2ze! ewU0RD DUP$S7 J3 CUPIES 

62 26194 17162! a WORD SMLR pY«y 

63 20196 g2usea! e4O0RD PLY$07 #FPUSH COEFFICIENTS 

64 20190 w17162! 2 40RD SMLR Ade Yueo 

65 20162 vb2diu! eAURDO SADR DAgweYwwoead 

66 20164 “17162! ew4URD SMLR 

67 20166 a22vdi0a! a NURD SAUR 

68 20178 vi7iéa' ewURD = SMLR 

69 20172 wwediu! eWORD SADR 

74 20174 wi7ise! ewORD SMLR 

74 20176 Bé2vdiet eWURU $ADK 

72 20200 wi716et eAORD SMLR PCC CCASHZHAS) HZHAS) HZ eAD) 2 

73 Peat) uZead) eZ ZeYwY 

74 2¢202 weavers! eWURD RINSO7 

79 26204 G1260d RTNSS73 MOV (SP)*,RY PPOP HIGH URDER RESULT 

76 24246 b12001 MOV (oP)%,R1 

77 20214 045726 TST (SP)*  #POP GUADRKANT FLAG 

78 20212 abevae bGE HT$997 PJUMP IF ARGUMENT WAS + 

79 22214 w62700 ADD HL Z20G,RO ISIN (#X) FHSIN(X) 
1dgveu 

82 20224 BbueOS RTISS7& RTS RO IBACK TO CALLER 

84 ; . 

82 28222 G1660a6 OYUPSS78 MOV 2(SP),«(5P) FOUPLICATE STACK ITEM 
osoeee2 

85 20226 416546 MOV 2(SP),94(9F) 
veabee2 

84 20242 woalda JMP @(R4)+ 

I) } 

86 20254 05716 Kaad7s TST esp ICHECK FOR @ FRACTION 

87 240236 vbi7o62 BEG RINSS7 FuUULT NOW 

88 20242 145266 INCA 1(SP) PQUADRUPLE STACK ITEM 
eouval 

89 2u244 “dV198 JMP @(R4) + 

92 } 

94 20296 0516066 WUvss7t BIS @5P,3, (SP) PSAVE QUADRANT NUMBER 
yugesye 

92 20292 Ywnls4 JMP @(R4I+ 

98 } 

94 262594 105766 wsST$o7i TSI8 4(9P) ITEST WUAQRANT 
yous 

95 20290 wH14is BEQ Q135$97 #JUMP ITF FIRST UR THIRD QyAD 


96 202602 62716 AOD #122000, 05P PNEGATE STACK ITEM 


SSINGS 


97 20266 
98 24274 


99 202/74 


od 
1@1 
1@e 
103 
104 
105 
196 


167 
103 


13/7 
136 


log. 


140 


144 


“$00 
OdW2 
W504 


odie 


0314 
0S16 


d52e2 


“S24 
0326 
ebou 


“sda 


2342 
0342 
“34a 
0346 
8399 
@352 
ag5a 
03596 


1uuded 
vusbe4dd 
~12746 
w4n2eude 
664467 
001546 
CUeb10! 
veudyuds 
wl27y4 
v2eldsut 
106266 
“ABAYAS 


10$eG2 
062716 
idadue 
WUE1S4 


“vizonu 
012961 
Vizlne 
weu4a4s! 
vle7as 
yoaugs 
vavene 
wiglas 
419046 
014246 
w142a6 
Ce5ses 
243572 
wiulsd 


USRSS7t 
Oi dss78 


j 


QUI gs75 


; 
PLYSS78 


PY2$575 


PYISS571 


Coss 


SING 
SNUS$S78 


POSSS7! 


ASRA 


BCC 
AQL 


JP 


AwSO 
DIVA 
MOD0 
SETF 
LOCOF 
CFCC 
SEU 
MOUF 
STCFTI 
KR 
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= (SP) 
#40200,"(SP) 


R4,SPOLSN 
SADR A QSRS37 


HUSES37, RG 


5(3P) }TEST QUAOKANT 

QuUTSS7 FYJUMP IF FIRST OR SECUND 
#i1agvae,e@sP INEGATE STACK ITEM 
OCR) 4 

(SP) +*,RU PSAVE Y¥ueY 

(SP)*,R1 

HCONDS744,R2 PPOINT TO LIST UF COEFFICIENTS 
a5,rd 

PY4{$357 

Ri, =(8P) IPUSH Yu 

RZ,p= (SP) 

#(R2),e(5P) 

e(R2),= (SP) 

Rs FCOUNT COEFFICIENTS 

PY2$97 

OCR4) + 

FRU 

! DOUBLE PRECISION FP 
@2(KD) FOF GET ARGUMENT 
PI2897,F) COS(X)# SIN(X#PI/2) 
SNCSO7) 


} 

@2(RO), FO) 
, 
#FCUS37, NU) 
Ra} 

} 

POUSS57} 
R4} 

Fuy 
(Ru)*,Fue 
#u,22,Fa? 
; 

FU,FUy 

I 

RTINGSO7} 
RAL OF 


FLl,R i? 
Ris 


PPUSH A FLOATING 1. 


PENTER POLISH 
XBL eX 


PPOINT BACK INTY LIST 


DOUBLE PRECISUN FP 
GET ARGUMENT 

SHORT INTEGERS 
POINTER TO CONSTANTS 
SIGN FLAWS @ ARG 

GET SIGN OF ARGUMENT 


SION FLAGS e& ARG 
REMOVE ARGUMENT SIGN 
x/(PI/2) 
FOSFRACT(X/2PL) 
SINGLe PRECISION FP 
CONVERT ARGUMENT 
CHECK FOR 0 FRACTION 


FUSFRACTCA*¥FRACT(X/2PI1)) 
GUADSINTCO*FRACT(X/2PI)) 
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145 BCC Q158573 JumeP IF FIST OR THIRD WUAD 
146 NEGF FQ) 
147 AQUF aLeaeFo) Yel,@=x 
448 Wi95S578 ROR Ris 
149 acc Qi28573 JUMP IF FIRST UR SECOND QuAD 
150 NEGF FO} Ya «Y 
154 ' 
152 Up2ss78 LOF Fa,Fe} 
i538 Mb F F2,F a} ZaYou? 
154 MOV #4,R4) COUNT OF CUNSTANTS FOR POLY 
155 LOF (RO2*,F 4) INITIALIGE aCCUMULATOR 
156 KPUSS7& MULF P2,Fiy 
157 vEC Ri} COUN 
156 ADOF (RO)%, FY) Fits Zwei ¢ CCI) 
159 BGT XPUS37} LOUP 
168 MULF Fi,FO; FOSs Yori 
164 TsT R4} TEST SIGN FLAG 
162 BEG RTNS$O7} 
163 NEGF Fide SIN(#xX) ® #SIN(X) 
164 RINSS78 STF Fu,e(SP)I MOVE RESULT TO STACK 
165 MOV (SP)*,RYU) ANO THENCE TO R@,R1 
166 MOV (SP)*,RL? 
167 RTS aS5 EXIT 
168 } 
169 Fcous3s7t 
170 Pr2s378 WORD 240534,0077323 PI/2 (DUVBLE PRECISION) 
171 20RD 121U44,a94502) 
172 ' 
4173 } ORDERWUEPENDENT CONSTANTS 
174 / 
475 eENOC 
176 J 
177 8360 @d5036 ew0RD 235u56,193672) ,BeOU151 46419 
@€3602 153072 
178 ’ 
179 @364 1362314 eWORD 136291, 22594379 ~©,00467376557 
0366 w23143 
182 ! ' 
461 8370 037245 ewORD 257293,0592130)7 87968967985 
0372 632130 
162 } 
185 0374 149045 eWURD 142295,0567413 7,645963713 
@376 ed674}i 
184 ; 


195 40a o4051) CONSS7E ,WORD O4G531,08077339 1,970796518 
0402 847733 
186 eENDC 


STNHO2 MACRO Vmedgeld W7eSEPw72 11849 PALE 43 


i eTITLE STNHWO 
2 e lFOF CNOS88 
3 eGLOBL TANHPEXPs SADR, SSBReSMLA,SDVK, SFCALL 
4 eGLOBL SPULSH,SPSHRS 
5 } THE FORTRAN TANK FUNCTION 
6 } TANA V@@2a 
7 } COPYRIGHT 1971, VIGITAL EQUIPMENT CORP., MAYNARD, MASS, 
8 } CALLING StQUNCES 
9 $ JSR R5, TAN 
12 i BR A 
ii i eWORD ARGUMENT ADDRESS 
i2 pas 
13 } RETURNS (EXPCAWANG) ML) /CEXP(2eARG) 41) IN RO,R1L, 
i4 ) 
15 veovad RAEXO 
16 everel RLexi 
17 weowrd . Raexd 
18 eseves K55%5 
19 weeded SP8X6 
20 20oe@e7 PCa%7 
24 20404 Bigdab TANK! MQV RS,e(SP) SSAVE RETURN POINTER 
22 20486 ¥ib5e9 MOV 2(R5),R5 IGET ARG AUVDRESS 
UAUe8e2 
25 24432 0119080 MOV @R5,%2 %IGET HIGH URDER ARG 
24 20434 UG15564 BEQ ZeRS$58 FJUMP IF ARGaY 
29 20416 wt6seu ASL RO 
26 24420 125008 CLRB RO 
27 20422 veedsead SwAad Rv GET EXPONENT 
28 20424 W20027 CMP RG,#245 
odveas 
29 20450 482412 OLT STESSS %FJUMP IF ADS(ARG) 416, 
32 20452 012762 MOV #40200,R0 PANSWER ITS 1,¥SIGN(CARG) 
e4a2eu 
$1 20456 205001 CLR R1 
$32 20442 045715 Ts! @R5 ITEST ARG SIGN 
33 20442 82052 BGE OuTSsis 
34 20444 262700 ADD #100002,K0 MAKE wis 
14u080¢0 
35 20494 ot0447 BR OUTS38 
36 20452 w2a027 STeS$Se8 CmP RO,#177 
080177 
37 20496 wu3svue7 BGT TANSSB %$FJUMP IF >lse2 
38 20460 229027 Cap RO,8164 
wbalea 
39 20406 9620458 BGE SML$58 FUSE CUNTINUED FRACTIUN FOR TRIS RANGE 
40 20466 4165901 MOV 2(%5),R1 
obaeere 
41 20472 wlisve MOV PR5,NQ PIF ABS(X) SQ2ee0i 2, LET TANHeX 
42 24474 YOR4SS5 oR OUTSSB 
43 20476 016546 TANSS8E MOV 2¢(R5),0e( SP) PUSH 2wA4RG UN STACK 
ocadve 
44 260502 011346 MOV PRS," (SP) 
45 20504 062716 AOD #2207 0SP FOUUBLE Aku 
a) 
46 28512 wieses MOV §P,R9 ISET UP CALL TO EXP, aRG POINTER 
47 28812 012704 MOV WEXP,R4 FRPOINT TO EXP 


014954! 


STNHK2 


4a 
ay 
5@ 
$14 
$2 
53 
54 
55 
56 
$7 


58 


72 


73 


740 


73 


76 


20516 


20522 
20024 
20526 
20552 


20594 
2u596 
2054¢ 
205492 


20546 


246592 
20554 
28596 
26569 
28562 
28564 
20556 
205702 
20572 
20574 


26608 
20682 


20606 
206iy 
20612 
2@6i4 
20616 
avody 


20624 
20650 


20654 
24656 
20640 
20642 
20044 
26646 
206294 
2vor2 
avu654 
26696 
2066y 
20662 
20604 


24656 


20672 


04767 
174482 
vigiseeo 
eigedat 
weSwvao 
012746 
vau2eoe 
14146 
wige46 
va546 
ei27a6 
24¢200 
64467 
681072 
weogvad! 
020754! 
ose2did! 
014256! 
Q@205964! 
012940 
@126ea1 
@12628 
eegeaas 
C169¢1 
wsuvee 
CiiLs2ae 
04467 
201836 
017970! 
6175728! 
617972! 
217162! 
g2e6ee! 
«40646 
ovubeed 
0166046 
oezecce 
£04467 
vG101a8 
020734! 
ed264ea' 
w2a66o! 
a@i1797¢8! 
“v2a7ie! 
017570" 
6$e55r 
eCedie! 
eseviar 
wLse256r 
HU20R4! 
217162! 
wesoea!l 


d1604d 
weguca 
wleorl 


UPL §S88 
OUTSS8s 


SMLESSS 


XSuSdese 


} 
Onc$set 
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enwURD 
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PC, SFCALL 
Ri,e(SP) PUSH FeeQAakG 
RO,e (SP) 

# (Sr) PUSH 1, 
#40200," (5P) 
Ri,= (SP) PPUSH Ewe*QAKG 
RO@,eliSP) 

* (SP) 
#40200,e(S5P) FPUSH 1, 
R4,5KOLSM 


$SBR+UPSIB, SADR, SOVR,UPLS3SS 


($P)%,Ru PUP RESULT 
(SP)*,R4 

(SP) *,RS PRESTORE RETURN 
RS FRETURN TO USER 
20R52,R1 PGET ARG 

@R5,K¢ 

R4,$PO0LSA 


SPSHN3S,SPSHR3, SPSHNS, SHLA,XSGSS8 


2(SP),e(9P) JGET X SWUARE 
R4,$POL84 


P$5$58,S540R,0NESSS 


SPSHR3,P45S38,SPSHRS,SDVN, SADR, SADR, SLVR 


S$SOR+ SMEAR, UPLSOB 


FGET (CEw*2x aL) /CEww2x +1) 


GET X A 


SET YP NUMERATOR 


Tre ABUVE COMPUTES KCLECOVTSS eed ACV 449, oo H1A52/Y))) 
WHERE Yexeox 


MOV 


MOY 


4(oP),RY 


6(SP),R1 


(GET XSQUARE AGAIN 


STNNB2 


77 


78 


id@0u6 
685066 
Venues 
012766 
e4g2ee 
6e@scud 
202154 
212746 
156237 
w12746 
044464 
127406 
165747 
012746 
“vat722 
oe€G1S4 
012746 
136457 
012746 
ua44i4 
d08134 
wdSOou 
ovsvel 
“wde7es 


¥12066 
edevle 
vi2066 
adueie 
606134 


P43538% 


Pyoss8! 


P3OS$3as 


ZERS SHE 


5 
UP2sss 


CLR 
mov 
IMP 
MOV 
MV 
MOV 
MOY 


JMP 
MOV 


MOV 
JMP 
CLR 
Cur 
bR 

MOV 
MOV 
JMP 


eENOC 
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6(SP) 
#40209,4(SP) 
@(RA)* 

#136237,° (SF) 
#41404,e(5P) 
#165747,7° (SP) 
#41722,¢(5P) 


@(Rdde 
#116457,%(SP) 


#41414,2e(5P) 
@O(R4A)o 

RY 

ae | 

OUTS36 
C(SP)*, 100 (SP) 
(SP)*, 100 (SP) 


(Ka) 6 


FINSERT A ly 


PPUSH 


FPUSH 


PUSH 


PMOVE 


4501042 


125,465 


3521935 


STACK ITEM UP 


SATNOS 


Cano uBGA = 


20706 
20772 
207/72 
2u774 
26776 
21000 


21006 


21012 
21el2 


o@nvav 
wodeaenl 
Cdwore 
deeded 
evuenrea 
me ee) 
YenvdHo 
ddgved 
Vopr) 
wonwuge 
edatus 
wdyepa 
wdvdrs 


0450466 
005046 
C2504d0 
065046 
045048 
wi6eona 
“sOUne 
016a46 
weaeee 
11440 
¥11590 
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AT4aN2S 


eTITLE 
o IFOF 


ATAN 


CUPYRIGHT 1971, 


eGLOBL 
eI FNOF 
eGhOsk 
eENOC 


SATNGOS 
CNUSSS 


VOa3A 


DIGITAL EQUIPMENT CURPURATION, 
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MAYNARO,MASS 


ATAN@ATANQ] 


FRU 


SADR SSBR,IMLR SF SUVE, SPOL SH SPUPRSYS 


Te& FURTRAN ATAN ANO ATAN2 FUNCTIONS 
CALLING SEQUENCE FOR ATANSE 


JSR 
BR 
ewQRD 


RETURNS 


CALLING 
JSR 

BR 
eWORD 
24URU 


RS,ATAN 


A 


AKGUMENT ADDRESS 


ARCTAN( ARG) IN RO AND Rie 


SEGUENCE FQR ATAN2S 


R5,ATAN2 


A 


ARGUMENT § ADDRESS 
ARGUMENT 2 ADUKESS 


RETURNS ACRTAN(CARGY{/ARL2) IN RO ANU RY, 


1F ABSCARGI/ARG2] > deed, 
SIGN(ARG)) wPlse, 


THE RESULT IS 


IF ARG2 <0 THE RESULT IS AKCTAN(ARGI/ARG2) + 
SIGNCARG{) Pl, 


RABKY 
Los S| 
R28%2 
LE a) 
LEY. 
ROBKS 
SP&%6 
FQSK2 
FLeKL 
F28k2 
P3ExX3 
PF 4ny%4 
F5BKS 
elF NDF 
CLR 
CLR 
CLR 
Cur 
CLR 
MOV 


MOV 


MOV 
MOV 


PPU 

=(SP) 
#(SP) 
= (SP) 
#(39P) 
= (SP) 


2(R5d,R4 


FCLEAR SIGN FLAS 
CLEAR ATAN2 By AS 


ICLEAR QUADRANT BIAS 
1GCT FIRST ARG ADDRESS 


GET FIRST ARG 


@RO,"(5PF) 


@SP,KA 


PaRG! TO Re 


SATAUS 


56 


57 


79 


76 


77 
76 


7% 
aw 
Bf 


Be 
83 
B4 


ie) 
et 


67 
fom) 
od 
94 
94 
GE 
94 
94 


2iata 
glues 


21224 
21426 
2tesu 
21ad2 
21036 
214656 
21496 
21242 
21244 
21046 
21ad¢ 


21096 
21296 


2iu%e2 
21494 
21406 


21a/2 
elu7a 


2ii102 


2iilu 
eiiiad 
cilio 
éljed 


elie 
21idse 


2lida 
eil14e 
21144 


elo 
clive 


<119%6 


elLona 
2i1o2 
21104 
e116 
2li7e 
21372 


01694.4 
OduUsnG 
(16440 
dusdee 
“11440 
oliOP) 
041497 
206384 
1o5ers 
Hesse 
ydodszl 
ldovvi 
40981 
lowlid 
022722 
ovadse 
we2425 
0046467 
duese62 
d1$256! 
W210e6! 


VIV$IS 


C5775 UPLSSGE 


dues 
éé2014 
C127b60 
¥4e@9)) 
duddjd 
ele7to 
207738 
éoréjyed 
udo77a 
wAYVE SY 
Cdzerd 
veefod 
Lordrd 
Udddid 
wosljyo 
ude4deo 
VOe7¢4 
J0n0Se 
eleva 
d4adii 
ole7el 
ae77 sa 
Edb/75 
etree 
L626¢e 
KOe7EA 
Ider 
ddveds 


K¥YUS84E 
¥ES046 
¢ddvi4do 
edodeo 
KE5046 
eladyd 


ATCESYs 


InPtsgi 


IhAg$ oot 
I 
AaTANE 


MOV 
MOV 


MOV 
MOV 
vEG 
ASL 
CukGd 
SaAd 
ASL 
CLRB 
Sw 
$uB 
CmP 


oLT 
JSn 


ewURO 
TST 
oGt 


MOV 


MOV 


MACRU vRdb"914 S7HSEP R72 {15460 PAUE 446 


4(R5),n4 }GET SECUND ARG ADORESS 
2(r4),e¢(9P) IGET SECUNU ARG 
@R4,° (SPF) 


@SP,%] FARG] TO RI 
INFS$3Q JUMP LF NENCMINATUR [5 @ 


Ru GET aBS VAL ARG] 
Ri POET EXPONENT 

RY 

R\ 

RY GET EXPONENT ARQ 
RY 


K1,R0 IGET EXPONENT OCIPFERENCE 
M260,0Rh0 FCHECK MAGNITUDE 


INF$3G9 JFTREAT AS INFINITY 
R4,S5P OLS" 


GOVRe UPL OSY GET ARGIL/ ARGO 

@4( ROD? PIF ARG? ¥¢, s]as 82 

ATESYQ FJIF ARU2KH, BIASTISIGN( ARG] ) OPI 
mO4HV991,8,.(5P) FPl 

WADT7 SS, 14, (SP) 


@e(42) Test ARGY 
ATE$ OQ 
HYA4eAbpde (SP) fal 


@sP PseTt CODES 

ATL#8G FJOIN MAIN ROUTINE 

H18,6°SP GFFLUSH STACK 

widest, re PANG & GIGN( ARYL) UPI /2 
&8AO7/SS,5) 

@c(m2) FTEST ARG 


TwetiG FPouarP Le oP Ls 2 


BY dave rd, Xe pePise 

R> PRETURN TO USER 

= (oP) PCLEAR SIGN FLAG 

= (SF) PCLE AX ATAND bIAS 

we (oPé 

e( oF) PCL ESR JUAURANT BAS 

= (SPJ 

2(45)],R4 PUET ARG AVERESS 


$aT 


NOS 


5 21176 


21282 
21204 
21206 
ai2ie 
1216 
1222 
lege 
1226 
1252 
1254 
1242 


i292 
1204 
12990 


1264 


1272 
1276 
1502 
1304 
1306 
1312 
1516 
1322 
1326 
1392 


L354 
1396 


1344 
"1946 


1354 


OBubbe 
¥16446 
e4udne 
011446 
wv20e4 
vo2716 
1achne 
@d5266 
@aguia 
021027 
e4u2dne 
164431 
eeVssus 
065766 
“usudae 
601425 
612766 
14541 
weAdeAa 
@12766 
0077453 
6d¢0u6 
005966 
e014 
216646 
adauee 
216646 
vag0K2 
212766 
v4a2ad 
odeeud 
605066 
eouees 
004467 
wWudsae 
CLiSe56! 
e2id06! 
416046 
Qaundue 
016646 
Zagee@2 
U25066 
Gua0a4s 
¥45066 
waawas 
e21527 
“$7041 
143445 
Loyuu4 
@26027 
eeguue 
034243 
101442 
01270606 
040006 
gdaha4 
wle/so 


ATISS93 


PLUSSYS 


bWIASS9E 


LE ISIE 


TNOSUYE 


MOV 
NOV 
BGE 
ADW 
InC 
CmP 
BLU 
BGT 
TsT 
HEQ 
MOV 
MOV 


VEC 
MOV 
mQv 


MOV 


CLR 
JS* 
e40RD 
MOV 
MOV 
CLR 
CLR 
CMP 
BLO 


BHI 
Cmp 


BLUS 
MOV 


MOV 


2(kK4),"(9P) 


@n4,* (SP) 


PLUSS9 


#120000,0SP 


MACWU VRUG914 BU7@SEPe72 {1540 PALE dae 


FGET LOW URDER ARG 


BGET AIGA URDER 
BJUMP IF QUADRANT 1 OR § 
GET ABS VALUE 


12,(9P) FFLAG = 


PSP, #40204 PCMECK Ir <1, 
LEL$99 %FJUMP IF <1, 

GT1$99 Fri, 

2 ¢SP) ICHECK LOW QROER 
LE1SS9 Fel, 

#14A011,4(SP) bePI/2 


#007733,9(5F) 


FATAN(X) PPL /2eATAN(1/X) 


42,0°P) FaoJUST SIGN 


2(SP),9(9P). 


PMOVE ARG DOWN 


205P),"(5P) 


#40200,4(5P) INSERT 4, 

6 (SP) 

R4,SPOLSH PCOMPUTE 14/X 
SOVRPLEL939 


2(SP),"(9P) 


MOVE ARG DOWN 


2°0SP),"(5P) 


4(SP) 
6 (SP) 


@SP,A037611 


L15899 
TNSS59 


PTAN(15) 


BJQUMP IF LESS THAN T4AN(158) 
PIUMP IF » 


2(5P),#4Su248 


Li5ss9 


w049096,4(SP) 


SINSERT FI/6 


#005222,0(3P) 


SATNGY 


125 
126 


127 
Leg 


129 
ide 
ist 
ide 


iss 
194 


135 
156 
137 


138 
139 


142 
141 


142 
143 
144 
145 
146 


147 


148 
149 


15% 


1392 
1364 


15/4 
1374 


14u¢ 
1402 
idua 
1406 


1412 
1416 


1422 
1424 
1426 


1492 
14454 
1496 
1442 
1442 
14464 
1446 
1459 


1454 
1496 
146¢ 
1462 
1464 


147¢ 
1472 
1474 
1476 
15%9 
152 
154 
156 
,9hu 
1512 
1314 
1916 
iseu 
1522 
{S24 
1526 
153 
1592 
15$4 


005222 
ddudus 
A116¢e 
B1lb66a4 
wo4yeue 
412746 
131727 
(12746 
142935 
014140 
W¥ive46 
425046 
127466 
64n2eeed 
012746 
191727 
€12746 
440595 
ilA146 
BidgHas6 
wdaan?7 
c4e21e2 


017162 
wd2ugd 
21936 
vaeguud 
¥1$e56 
0214440 
041908 
vl6oul 
eeavdee 
0410146 
010046 
vigiss 
0iye46 
004467 
000156 
017162! 
0215560! 
217162! 
eo2eia! 
017162! 
oveeiu! 
vV1i71K2t 
wubavia 
017166! 
O42uiu'i 
G17162! 
wW2viul 
vwdeuid! 
€215e4t 
vbedlal 
@i7030! 
Qeios2! 
¥g5720 

“uegeus 


L1 28898 


EXigu9t 


eWURD 


MQV 
MOV 


MOV 
MOV 
MOV 
MOV 
JSR 


ewQRD 
2W¥ORO 
eWQORD 


a WORD 


2 40RD 
e WORD 
ewORD 
e SOR 


TST 
RTS 


@SP,Rg 
2(SP),R1 


#131727, 
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PARG TO RELS 


“(SP) 


#142035," (SF) 


R1,«(SP) 
k¥,o (SP) 
=(SP) 


PPJSH 1, 


#49200,"(S5P) 


#131727, 


"(SP) 


#0403835,7(SP) 


Ri," (SP) 
RY,# (SP) 


R4,SPOLSN 


PUSH eROOT 3S 


PPUSH ARL 


IPUSH ROUTS 


FPUSH AR 


PTRANSFORM ARG 


CROOTSeX@II/(CROOTS +X) 
SMLAR 6 SSBR,UPS39,8S0R,SDVR,L15859 


esP,ka 
2(5P),R1 


R1,e(SP) 
RB,-(SP) 
Ri,w(SP) 
RO,# (ISP) 


IGET ARG 


R4,$POLSH 


SMLR 
PLYSU9 


SGET THREE COPIES 


IGET aRGeee 
PSET WP COEFFICIENTS 
SMLR + SAUR, SMLAR, SADR, SMLA A SADR 


SMLR» SAUM, BML» SADR 


IF Xemd, POUX)ePI/2 IF Xml 


FADD ATAN2 HITAS 


POP HESULT TO REGS 


POP SIGN FLAU 


$A0R IPCX) oe 
SGNSS9 PADJUST SION 
$4DR 

SPUPKS,EXI$39 

(SP)* 

RS 


PRETURN TO USER 


SATNOS MACHO VROG"14 D7eSEPe72 11849 PALE ade 


457 ’ 
168 1896 012666 UPS3S9: MOV (SP)*, 400 (SP) SHOVE STACK ITEM uP 
. vaoe12 
159 1542 612666 MOV (SP)*,1¢0 (SP) 
wdaeie 
168 1546 040134 IMP @(R4)« 
164 ) 
162 1590 wl26oe PLYSdHt MOV (SP)*,R¢ }PUP POLY ARG 
463 1552 B12601 MOV (SP) *,R1 
164 1554 sea MQV HCONSS964,R2 pPOINT TQ COEFFICIENT TABLE 
021644! 
165 1598 wie7as MOV #o,RS LQQF 3 
oveeesd 
166 1564 000422 BR PY1$99 
167 1566 wigi4d Pydssos MOV Ri,w (SP) PPUSH ARG 
168 1579 a10046 MOV RO,e (SP) 
169 1872 0142466 PyisS98 MOV =(R2),2e(9P) FPUSH CONSTANT 
17@ 1574 wia2d6 MOY #(R2),0 (SP) 
171 1576 @85903 DEC R3 ICOUNT 
172 164@ 283572 BGT PY2$99 
173 1602 280134 JmP @( Ra) « 
174 } 
178 1604 005766 SGNS$398 TST 6.(SP) FCHECK SIGN FLAG 
wapeia 
176 1618 o81402 BEG $614$09 
177 1612 062716 ADU #1en000,¢SP PNEGATE RESULT POR (91,0) & (1,1 
1eeeae 
178 1616 @éwl34 SGISS98 IMP @(R4) + 
179 eENOC 
182 } 
184 e lFOF FPU 
182 ATAN23 SETF } SET FR MODE FOR FPU 
133 MoV Z2(R5I ROS ADDRESS OF ARGI 
184 MOV 4(R5),R4) ADORESS OF ARG2 
4185 MOV ORS,Ray HIGH ORDER ARGI 
136 MOV @R4,R47 HIGH ORDER ARG2 
187— BEQ INFSS9? JUMP IF DENOMINATOR @ 
186 ASL RUE. 
189 CLRB RQ} 
190 SwAs Ray EXPONENT OF ARG{ 
494 ASL Ris 
192 CLRS Rij 
193 Swag Ri} EXPONENT OF ARG2 
194 Sus Ri,RO; GET EXPONENT DIFFERENCE 
195 CMP #26,9R0} CHECK MAGNITUDE 
196 BLT INFSS9} TREAT AS INFINITE 
197 LOF PIS39,F3) INITIALIZE BIASSPI 
198 LF @RS,FO) GET ARG 
499 CFCC 
200 bGE ALPSs9) JUMP IF ARGY>gQ 
201 NEGF FS} BIASBSIGN(ARG1) oP] 
202 AqPsso% LOF @RA,F Le GET ARG2 
203 CFCC 
224 . bit A2MSS9) 
225 CLRF F3) IF ARG2>@, BIAS&Q 
206 AgMSSO98 DIVE Fi, FO) ARGI/ARG2, SET FLOAY CC 


207 BR ATISS9F JOIN MAIN ROUTINE 


SATNBS 


208 
229 
218 
2i1 
212 
2135 
214 
215 
216 
217 
218 
219 
228 
221 
222 
223s 
224 
225 
226 
227 
228 
229 
250 
254 
232 
2535 
234 
255 
236 
237 
2358 
259 
240 
244 
242 
245 
244 
245 
246 
247 
248 
249 
258 
251 
252 
255 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
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} dj 
INF sagt 


J 
ATANE 


ATISS9S 


PLUSSOE 


GTISSOS 


U 
LEISS98 


j 
Li9sso8 


XPUSSSE 


SGissyt 


} 
Exdssor 


LOF 
TST 
BGE 
NEGF 
BR 


SETF 
CLRF 
LOF 
CLR 
CFCC 
STF 
CLRF 
BGE 
ABSF 
INC 
LoF 
CMP 
CFCC 
OLE 
DEC 
DIVF 
LDF 
LOF 


STF 
CLRF 
CMPF 
CFCC 
BGE 
LDF 
LOF 
MULF 
SUBF 
ADDF 
DIVF 


LOF 
MULE 
MOV 
MOV 
LOF 
MULF 
VEC 
ADOF 
BGT 
MULE 
AOUF 
SUBF 
TsT 
BEG 
NEGF 
ADDF 


STF 
MOV 


PI2$99,Fi) 
ORS 
EXISJ9} 
Fil 
EXIsso) 


} 

Foy 

@2(RS) FOP 
R4} 


LELSS93 
Ra) 

Fa,F iy 
Fi,Fey, 
P12$59,F 9) 


FSsP Os 
FS) 
TL5899, FU) 


biSS497 
PI6899,F 3) 
RTSSS9,F 0) 
#1 ,00FO) 
RT3SS$S99,P4) 
Fi,F Oe; 


FO,FeF, 
FQ,FO; 


HFCOS3I9,RO, 


w4,Riy 
(RO)*, Fi) 
FuU,F iy 
Rij 
(RO)*,F il 


XPUS$S9) 400P 


F2,Fi) 
FS,F iy 
Fa,Fiy 
R4) 

8G1859) 
Fi} 

FS,Fi3 


Fi, (SP)? 
(SP)4*,RG) 


RESULT#SIGN(ARG1) 4PI/2 
TEST ARGI 
#P1/2 
#P1I/2 


SET FP MUDE FOR FPU 
CLEAR ATAN2 BIAS 

GET ARGUMENT 

CLEAR SIGN FLAG 

GET SIGN OF ARGUMENT. 
FS®aTAN2 BLAS 

CLEAR QUADRANT BIAS 
JUMP IF GUADRANT 1 OR 3 


1,6 
CHECK IF X#a1,0 


X>4e0, AUJUST SIGN FLAG 

1, W/Xx 

ATANCX) BPI/2eATAN(1/X) 
WUADRANT BIAS@PI/2 


F48QUADRAN] BIAS 
F300 
COMPARE TAN($5) 8 X 


Xa8 TAN(15) 
P3aPl/s6 


XwROOT3w1,0 
X#ROOTS 
(X*ROOTS@ 100) /(X*ROOTS) 


x 

Xe*Q 

POINTER TO POLYNOMIAL CONSTANTS 
COUNT OF CUEFFICIENTS 
INITIALIZE ACCUMULATOR 


COUNT 
Fits Fiw X¥e2 * C(T) 


Fite Fiwx 

PI/6 OR 6,0 

P(X)wuUAD BIAS 

TEST SIGN FLAG 

NO ADJUSTMENT 

NEGATE RESULT FOR (m1,8)8&(1, INF) 
ATAN2 BIAS 


MOVE RESULT TO STACK 
AND THEN TU REGISTERS 


SATNUS 


265 
266 
267 
263 
269 
278 
271 
272 
273 
274 


275 
276 
277 
278 


279 
280 


1622 
1622 
1624 
1626 
160% 
16$2 
1604 
1636 
1644 
1642 


B97505 
038352 
137424 
¥56514 
Jd7946 
149333 
18$765¢@ 
125244 
vaveud 
eenvad 


; 
PISS93 
PT2$593 
TyOSSys 
PITOSS9E 
aTOSSYE 


FCUSS93 


CONSS¥3 


; 


MOV 
RTS 


ewORD 
eo wOROD 
a 4URD 
ae aAURD 
e NORD 
abNyoc 
eWURY 
ewQRD 
e WORD 
ewOROD 


e NORD 


eE NDC 
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(SP)*,Ri? 
KS) 


240531,007736) 
B40511, 007733) 
237614, 090265) 
O49n06,v95222) 
040395,151727) 
BS7SU5, C9552 
157421,296514 
057514,193338 
137692,125244 


Q40204,004aueG 


EXxiT 

PI 

PI/2 

TAN(39) 

PI/6 

ROUTS 

eY96 50547409 
$me1419574624 
BeADGOT7 S201 
Pee SSSSSSLS19 


Pa999999NONYG 


$SOT2S 


were DO On~ a dg bd GA 


21650 
21652 


21656 


21690 
21662 


21664 


21679 
21672 


21676 
21700 


21782 
21704 
21706 
21712 
21712 


21716 
21720 


aeavaa 
02000) 
edaeo4 
Boa0as 
woes 
280880 
oeadal 
20e0ga 


010946 
¥16905 
vea0G2 
@41521 


100443 
204446 


012746 
veedos 


weseal 
062721 
C2010 
045046 
010146 


405646 
011546 
245046 
010146 
064467 
177728 
013256! 
O@2010! 


=e Ws Ge We 


= ww GS GW ws Ge GS Te 


SORTS 


SGRT! 


LUPS415 


eTITLE 
e IF OF 


SORT 


eGLOBL 
a LFNDF 
eGLOBL 
e ENDC 
SORT 
CALLING 
JSR 

BR 

RARG 


RETURNS 


RASKO 
Riexd 
R4GK4 
58% 
SPax6 
FORXS 
Fisxi 
F25X2 
os IFOF 
MOV 
eENOC 
a LFNDF 
MOV 
MOV 


MOV 
eENDC 
BAI 
BEG 
eo lFNOF 
MOV 


eENDC 
ASR 
AOD 


CLR 
MOV 
eo LFNOF 
CLR 
MOV 
CLR 
MOV 
JSR 


eWORD 
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SSQTHS 
CNDS41 


VOOSA 
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SGRTrSERRS 
FPU 
SADR, SOVR, SPOLSHS 


THE NEAL SQUARE ROOT FUNCTION 
SEQUENCES 

R5,SURT 

A 


THE SQUARE ROOT IN R@ AND RG, 


FPU 

O2(RO),RIG GET HIGH ORDER ARGUMENT 
FRU 

RS,=(SP) . 
2(R5),R6 IGET ARGUMENT ADDRESS 
@R5,K4 IGET HIGH ORDER ARGUMENT 

ERRS4, JFERROR IF ARGUMENT NEGATIVE 
ZERS44 %JFASY EXIT IF ZERO 

FRU 

#3,0(SP) PRPUSH ITERATION COUNT © 
Ri PRORM INITIAL ESTIMATE 
H#20100,R1 

© (SP) FUSE ONLY MIGH ORDER PARTS FIRST 
Ri,w(SP) t'CAUSE ADD AND DIVIDE ARE 
FPU 

e (SP) IFASTER THAT WAY 

ers," (SF) 

°(SP) 

Ri,2tSP) 

R4,SPOLSA PENTER POLISH MODE 
SOVRe SADR, UPLS44 H(X/E*E) 


$SQ 


53 


Tos 


21782 
217¢@4 
21790 


217354 


} 21796 


21742 
21744 


21750 


21794 
21796 
21768 
21762 
21764 
21766 
21770 


21774 
21776 
21777 
22002 
22002 
22004 


021724! 


162716 UPLS4i1 SU 


vee2ou 
005566 
weeuad 
014108 
016046 
“wdviege 
011946 
016046 
280406 
616646 
odave6 
600756 
“12002 
b126a1 
005726 
012605 
wedges 
004567 
wdovi2 
060773 

wu4 

6135 
CO5UER 
CBS} 
000767 


Ouls4ys 
RTNS418 


ERRS415 


ZERS41 1 


’ 
LUPS418 


} 
ERAS418 


ZERS413 


DEC 


BEG 
MOV 


MOV 
MOV 


MOV 


BR 
MOV 
MOV 
TST 
MOV 
RTS 
JSR 
BR 
eBYTE 
eBYTE 
CLR 
CLLR 
BR 
eENDC 
al FOF 
MQV 
SETF 
LOF 

L OF 


LOF 
LOF 
VIVE 
AODF 
DEC 
DIVE 
BGT 


STF 
MOV 
MOV 
RTS 


JSR 
RTS 
eBYTE 
eSYTE 
CLR 
CLR 
RTS 
eENOC 
aENOC 
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w2000eSP N(X/E*E)/2 
4(5P) FCOUNT LOOP 


QUTS4,y . 
2(85),e(S5P) FUSE LOW ORDER PARTS 
@K5,* (SP) 3T00 FROM NOW ON 


6(SP),"(5P) 
6(SP), = (SP) 
LUPS4{ #GO FOR ANOTHER LYERATION 


(SP)*,Rku JGET RESULT INTO RO,RI 
(SP)*,R1 . 

(SP) IPOP ITERATION COUNTER 
(SP)*,R5 

RS PRETURN TO CALLER 

RS,SERR FERROR 4,11 

RTINS$4]4 

4 

ii. 

RO 

Ri 

RTNS4] 

FRU | 

#3,R0) : ITERATION COUNT 

} SINGLE PRECISION FP 
(SP)*+,Fo) GET INITIAL ESTIMATE 
@2(h5),F 2) GET x 

FO,Fiy Eee! 

P2,FO; x 

Fi,F wy, X/E 

FL,F Oy) X/EE 

RQ COUNT 

w2,drFO)} E's (x/E+k)/2 
LUPS4)) 

FO,w(3P)) RESULT TO STACK 
(SP)*,RBI AND THENCE TO RU,Rt 
(SP)*,Ri} 

RS} EXIT 

RS,SERRF ERROR 4,31 

RSJ EXIT 

4 

1% 

RO} 

Rij 

RO} 


SERROL 


San ad ® GA = 


22086 
22010 


22ui4 
22016 
22020 
22020 


22024 
22026 


22082 
22as4 
22096 
220498 
22042 


geguaa 
e@aeus 
“8avas 
200007 


210046 §ERRS 
H165e¢@ 
Veeude 
o0u4a4 
YWiawed4d SERRA! 

EROS4SS 
12¢027 

v4a0ea5 


001402 


004777 
eeeeas 
012906 
g80265 
V22040'SERVEC! 
CUGGOA MLTS433 
000776 


IGNS45% 


aTITh 
eGL00 
xg 8 


3 
SP 8 
3 


ct 
L 
40 
*%5 
46 
47 
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SERROY 


SERR + SERRA, SERVEC 


THE ERROR HANDLER OF FPMPo1 4 
THIS ROUTINE PASSES CONTROL TU THE USER'S ERROR 


RQUTINE, 


LF ANY, 


DEFAULT ACTION IS TU HALT, 


USER MUST MOVE AUDRESS OF MIS ERROR ROUTINE 
TO GLOBAL LOGATION 


'SERVEC!, 
TO THE AODRESS IN SERVEC ViA A 


CONTROL IS PASSED 
JSR PC, @SERVEC, 


REGISTER ZERU wILL CONTAIN THE ERRUR COVE, 


CALLING SEQUENCES 


Ai 


OR 3 


MOV 
MOV 


BR 
MOV 
eT FND 
CMP8 


BEG 
eENOC 
JS 


MOV 
RTS 

e 40RD 
MALT? 
GR 


f 


JSR R5,SERR 

BR A 

eBYTE ERROR CLASS 

2bYTE ERROR NUMBER 

MOV H#ERKNUM, RG 

JSR R5S,SERRA 

RU, e(SP)) SAVE @Q 

2(R5),Rub GET ERROK CLASS/NUMBER 

ERBS43 

RB,e(SP)? SAVE RQ 

CLASSS} DEFINE TO GET WARNINGS 

RO, #979 CLASS § (WARNING)? 

IGNS$43) IGNORE IF SO 

PC, @SERVEC) CALL USER ERR ROUTINE 

(SP)*,RGI RESTORE Re 

RS} RETURN TU ERROR ROUTINE 

HLTSA433 ADLUR OF USER ERR ROUTINE 
DEFAULT! HALT 

HLTS43) HARD STOP 
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i 

2 

3 “vdeead 

4 weaeus 

5 

6 

7 

8 022044 212666 
wdudbeae 

9 622050 012666 
200eZe 


14 22054 060136 
ii 


SLURS 


aTITLE 
eo LFOF 
Raaxs 
SP 8X6 


SLORO1 
CNOS44RCNDS42 


LOAD FLAC = SINGLE PRECISION 


MOV 
MOV 


JMP 
eENOC 


(3P)*,2(5P)} 
(SP)*,2(5P) 


@( R46) 


MOVE OPERAND TU RESULT LOC 


POLISH RETURN 


S$LUO01 


Qoa~m AAS GW - 


avudad 
oduoga 
462086 


“196982 
062708 
e4u016 
12920 


5 012626 


e12020 
012020 
860134 


$L.U08 


eTITLEe 
a lPOF 
RA8X2 
R4BYX4 
S$P8%6 
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$LO004 


CNOS4S5&CNOS42 


LUAD FLAC = DOUBLE PRECISION 


MOV 
ADD 


MOY 
MOV 
MOV 
MOV 
JMP 
2a ENOC 


SP,RO} 
#8,,%0} 


(SP) %, (RO) +3 
(SP)*, (RO)+ 
(SP)*%, (RY) + 
(SP)*, (RO) + 


CRA oF) 


COPY STaCk POINTER 
CALC ADDR UF RESULT 


MOVE OPRANU TU RESULT LOC 


POLISH RETURN 


SSTR@L 


woOonoaonsececbs 


22076 
22162 


22106 
22iia 


22114 
22116 
22122 
22122 


22126 
22152 
22182 


22144 
22136 
22148 
22142 
22144 
22146 
22154 


avgded 
veuvel 
vdevdae 
Qeaguus 
wovdas 
000005 
aegeve 
Vdada7 


@12749 
oees3e2t 
045/766 
000038 
wwi4ys 
“gS066 
o0avse 
1¢oaed 
Bigesl 
e22121 
612702 
“geass 
012128 
o458u2 
483575 


12520 
212522 
O8a134 
012520 
@1252v 
222626 
000134 


} 
$STRE 


LPaés6s 


STKS468 


o TITLE 


e lFOF 
R@sxe 
Risrl 
R28X2 
R3axs 
R45X4 
RS58X5 
SPaXx6 
PCaX7 
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SSTHOY 


CNOS4S6ECNDS42 


STURE FLAC @ SINGLE PRECISION 


MOV 
TST 


BEQ 
CLR 


MOV 
MOV 
CMP 
MOV 


MOV 
DEC 
BNE 


#FAC342,R9} 
SOC(SP)} 


STKS$46) 
3U(SP)) 


SP,RU) 

SP,RIi 

(R1)*, (RI) 49 
#13,M2) 
(R1)%, (RO) oy 
R2 


LPS$40 


GET ADDRESS OF FLAC 
TEST FoR STACK MODE 


BRANCH IF NOT 
CLEAR STACK MOVE FLAG 


COPY STACK POINTER 


Ri s R1 # 4 
LOOP COUNT 


MOVE UP STACK TO MAKE ROOM 


RQ POINTS TO OPERAND LOCATION 


MOV 
MOV 
JMP 
MOV 
MOV 
CmP 
JMP 
eENDC 


(R5)*, (RO) +; 
CR5)*, (RO)+ 
@CR4) o) 

(R5)*, (RO) os 
(R5)*, (R@) + 
(SP)*, (SP); 
@ (R416 


STORE THE FLAC 


POLISH RETURN 
STORE THE PLAC 


POP OPERAND OFF THE STACK 
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ees OVC &U He 


gaegvae 
veudal 
veeuae? 


880003 


22152 
22156 


22162 
22164 


22170 
22172 
22474 


22202 


22204 
22266 
22212 
22212 
22214 
22216 
22222 
22222 
22224 
22226 
22250 
222582 
22204 


22240 


“vdaege 
0888208 
08oda6 
eeeea? 


212705 
200432! 
005766 
OGe034 
684426 
005066 
edeesa 
0196008 
bie6as 
a627a4 
wdaeis 
012702 
weoasrs 
012128 
Jed5oee2 
0839795 
wi2o2e 
12528 
12520 
0125290 
20136 
212528 
012922 
812522 
012500 
262706 
22G8012 
wanlsa 


O0uso1t 


S$sTOI 


LPSa7t 


STKS471 


eTITLE 
el FOF 
HAaQxe 
ALexs 
R29X%2 
H38XS 
MaeKa 
REARS 
5P8X%6 
PCRY7 


MOV 
TST 


BEQ 
CLR 


MOV 
MOV 
AOD 


MOV 


MOV 
VEC 
BNE 
MOV 
MOV 
MOV 
MOV 
JMP 
MOV 
MOV 
MOV 
MOV 
ADD 


JMP 
eENOC 
eTITLE 


e END 


S5TDb1 
CNDS478CNOS42 


@FACS42,85 
3aCSP)) 


STKS47) 
34(SP) 


SP,RO . 
$P,R3 
Wid, Ry 


#13,R2 


CR1)%, (RO) » 
R2 

LP $47 
(RS5)%, (HO) oF 
(RS)*, (RO) eo 
(R5)%, (RO) + 
(R5)%, (RO) + 
@OCR4I o7 
(R5)*%, (RO) + 
(R5)*%, (RO) % 
(R5)%, (RO)* 
(R5)*, (RO) + 
#12,5P) 


@(R4)« 


FPMP1y FLOATING POINT & MATH PACKAGE 


TEST FOR STACK MODE 
BRANCH IF NOT 


STORE THE FLAC 


RETURN 


POP OPERANO 


FPMP14 FLUATING POINT & MATH PA 
SYMBOL TABLE 


A J 
ADJS19 
AT194 


B1 8 
B2NSSO 
B4ANS28 
B9AS$I 
CARS$42 
CLES9 
CMF 342 
CNO$i & 
CNOS12" 
CNOS$155 
CNOS$i68 
CNDs2a8 
CNUS2ZS# 
CND$265 
CNUS298 
CNDS$S48 
CNOS348 
CNOS3S78 
CNDS4 #8 
CNDS448 
CNUS478 
CND§$7 & 
CNVS8 
CONSIS 
CONSSD 
CYCS29 
C23sii 
DATAN2 
DCH3184 
DECS$25 
DGSS9 
DGSS9 
DIGITSs 
OIV$i7 
DIVS9 


- OLWS16 


ONES11 
DNESSS 
ONL $4 
DRisi2 
DSQRT 
DUPS$13 
DUPSS 
OVisi6 
DvV2$8 
Ov4a38 


osdeig 
014344Rk 
00S150R 
014354R 
@US216R 
B21160RG 
021124R 
014410R 
eusala 
O821G6R 
weaned 
2usav6 
Wi7264R 
CLi63S46R 
@VLIECER 
O¥A4592R 
@US1 44K 
@BU204R 
Cv2eet 
Ove001 
PUCees 
eecevs 
Coevus 
oeeues 
OBOA01 
Qevees 
Cuueau4 
OO0a0) 
Oodaus 
TB 
Gveevi 
CbUues 
eevee! 
OHS444R 
Big2]gGR 
62164aR 
617052R 
@67514R 
C1 G666RG 
015442R 
#19772" 
O¥6592R 
2@6610R 
Caeega 
B@isi76R 
OESICHER 
@12552R 
0A76U4R 
@17730R 
GuUsZsarR 
@07640R 
C1B454RG 
@10194R 
CUIBISR 
01 3650R 
OH4S14R 
GH4a366R 


ABPS19 
ADKS42 
ALOG 


822828 
842328 
BOAS2 

CrRS$20 
CLRS29 
CMRS42 
CNDS$i08 
CNDSi 38 
CNOS{68 
CNDS$198 
CNDOS$218 
CND$248 
CNOS278 
CNOS3 ® 
CNOS$S28 
CNOS3S# 
CNOS$3S88 
CND$4{8 
CNDS$458 


QOUBLE® 
DR2$ie2 
OSVSi19 
QUPS19 
DUP S37 
Dviss 
Ov2es9 
D1 8 
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814495eaR 
@8G202R 
O225°90RG 
477316 
@14294R 
B20756RG 
@11204R 
Ba60e 
ZQS6O6R 
2202164 
281 606R 
22eeie2 
@1641aR 
Zi63sS2r 
@G@2404R 
@14792R 
@1705CR 
@80442R 
@e0ae)s 
@0eae4 
Cveees 
geaaes 
O20eb04 
20Gav4 
Qeaaes 
@B0804 
Q20004 
2b0G04 
BUAA04 
Ggae84 
@agavi 
BUeaws 
24eavs 
227 4499R 
Basi2ar 
B2VO95ORGL 
@aeaie 
egeelg 
B2S416RG 
00767 4RG 
217724R 
2Y6579R 
Q@12556R 
286692R 
@21a56R 
QY6694RG 
@1SSU6R 
815456R 
BA32<26R 
GUBG04 
BU76O6R 
214402R 
O144094R 
220222R 
QU4N2fGR 
2B535OR 
G6G014 


AC @ 
AINT 
ALUGIU 
ASLS11 
AS1$i1 
ATESIS 
ATIS39 
ALZ31 
A2NS$1 
BACS25 
BT9$2 
BeN$28 
822830 
862828 
CAD$42 
CHAS$17 
CMD$42 
CmMi$4e2 
CNOSiias 
CNOSi4e 
CNOS$178 
CNUS2 #8 
CNOS$228 
CNOS258 
CNOS$288 
CNDS$Sas 
CNOS33s8 
CNDS$36s8 
CNUSS9s 
CNO$42s 
CND$465 
CNOS6 @ 
CNDS$9 8 
CONS13 
CON$37 
COVS30 
C2 ] 
OATAN 
DCHS16 
DCRS25 
DEXP 
0G23$9 
DONIS$i8 
DIVS$i5 
OIvVsé 
OLOGi9@ 
OMUDE « 
ONE$25 
ONESS 
DPKSS 
DSIN 
OUPS$16 
DUPS$2e0 
OviSio 
DVis9 
DvV3S$6 
Die@ss 


177382 
VASL24KG 
O22544RG 
020757 4k 
6a7552R 
011072R 
B21204R 
O21046R 
0o1e@54R 
01 5694R 
0A2464R 
016404R 
017380R 
216332R 
@QW476R 
01 3246R 
@O4466R 
@aW264R 
Cgeaas 
Qeeoe1 
0G0001 
OQ8R01 
re | 
0ebaea1 
BARS 
0a0ae1 
030001 
0a6201 
CA0001 
@2vaet 
0avaei 
OgbeR1 
000004 
@{0444R 
028400R 
0175068 
0288022 
WL LIS6ERG 
612506 
B01 5S666R 
Oi S710RG 
289602R 
21 S514k 
@ilA1a9R 
CA431OR 
CA865BRG 
1aeeaa 
O45724R 
@20422R 
@B4610R 
O27752RG 
007246R 
014720 
012772R 
@a5344R 
O44346R 
094224R 


FPMPL1 FLUATING POINT & MATH FPA 


NO1LS9 


SYMBUL TABLE 
D16$19 01437aR 
ECK$i vel2derR 
ECL$18 6135466R 
ECLS28 @16620R 
EC18i8 8154748 
EF Ya C@GS646R 
ENO 8 ouuada 
EN2S$8 044274R 
EQ2si6 195,168 
ERF 8 68v0dse2 
ERRS14 010644R 
ERRS$S OYSa7OR 
ERRSS O84R74R 
ESV$20 614744R 
Excg$6 VO4114R 
Exitss e4sa4aR 
EXPS$9 0577@R 
EX23$9 @v6vi2R 
FCOsiS wi12i0ur 
FFT $9 66540GR 
FF5$9 @v5544R 
FLOS24 819456R 
FLTS16 %32660R 
FLi$i16 6126956R 
FULS25 $5712? 
F2 eXUY2002 
FS 8XLOVAQ0S 
GOs24 015256R 
GTi$S9 621254R 
TFIX 0i5154RG 
INF$i15 @11076R 
INRS39 @21196R 
ISR$9 OS6526R 
LEI$15 811 356R 
LGTS39 007342R 
LOGS$3 OB2552R 
LPS47 022204R 
LWPS$i7 #13216R 
L19s39 421446R 
MLTS30 @17460R 
ML&Se? 206246R 
MTQ@$28 0167356R 
MTi8S0 617464R 
MUL $8 @24R06R 
M45$9 CVO156R 
M52§9 W06172R 
M5938 004714R 
NAD$42 BUA554R 
NCPS2 OG2254R 
NEGSO wudsad4rR 
_NGM$29 17152R 
NGOS18 015664K 
NNZS8 BQS644R 
NOOS2 @u2372R 
NOMS27 WL 6110H 
NOMS$9 0U5S96R 


Ba5SOeRr 


D2 ® Q24ane4 
ECKS$2 wu22ie2r 
ECL$19 @14149aR 
ECL83@ @17446R 
EEXP & gugaré6 
EFig¢a 2¥41/6R 
ENM$8 004212R 
EQ1816 @1312aR 
En2s18 @13676R 
EROSLG B80745592R 
ERRS$24 015476R 
ERRS$44 @2177Q0R 
ERR SD B26276R 
ExAg$i @@i122k 
EXl81@ @07312R 
ExI839 021592k 
EXT$8 @2419@R 
BxXo49 eO6a0AR 
FCUSS9 Y2162aR 
FF339 yasevar 
FFES9 @U5526R 
FLOS8 @83712R 
PLT$id 21355°9@R 
FPS§$5 24S202R 
Fa BLGUaAKD 
FS 4220003 
GOS${16 G1 3046R 
Gos25 ¥15540R 
MLT$43 O22204GR 
IGNS43 g22052R 
INFS39 @2115@R 
INT @16029RG 
be ® gdaved 
LE1839 D21306R 
LGTSS Z2S2°AR 
LPS$25 @15862R 
LS ® 477314 
LUPS41 221712R 
MOVvS$s QI4A56R 
ML1$9 225204R 
MOVS25 O15696R 
MTGS$3O0 @17514R 
MT2$26 @16792R 
MUL SO gu524eR 
M5A$8 Q24702R 
M54$8 024674 
MALEO 4™d6294R 
NCKS24 015306R 
NEGS42 Q@4W292R 
NFL SS B415V2R 
NGM3$35 @17790R 
NML3419 @14502R 
NNZS9 v¥5176R 
NOUS27 wWloLeaR 
NOM$28 YLE40ER 
WOP $8 WI37IAR 
NQD$16 @1d112R 
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DSKS19 
ECL$16 
ECLS$22 
EC1I$16 
EFES9 
EF2$8 
ENiS$8 
EN1$i8 
ERBS43 
ERRS$1¢0 
ERRS25 
ERK $42 
ESIGN 8 
EXaA$2 
EXx1$15 
EXP 
Exi$9 
FAC$42 
PRESS 
FF4S9 
FIL$25 
FLUAT 
FLT$8 
FPS$6 


01440an 
012520 
O154,12aR 
042522R 
Ogd73 4k 
404204x 
WA4224R 
01 970GR 
e2e2ar 
Q0713UR 
@19740R 
Wudd2er 
vadsela 

0g2144R 
@117709R 
OL4554RG 
00977 4k 
7 0432R 
Was 464R 
009564 
01970aR 
014 9222RG 
024454 
023536a0K 


Fi BX020204 
F4 exdadaad 


GOsi1e 
GTisis5 
IDINT 
INCS20 
INRS$15 
ISNS9 
LENGT Hs 
LFTS8 
LOG$ia 


MTis28 
MULS29 
M16$19 
MS1S9 
M5439 

N 8 
NCKS8 
NEGSS5 
NGMS$24 
NGOS$16 
NNZ$20 
NOUS1 
NOUS®9 
NOMS 34 
NQR Fy 
NQUS13 


01365 4R 
0112590R 
BiSs@eaRe 
0144712R 
O11154R 
@25506R 
“asa4e 

YeSBVi9R 
0G6656K 
B22126R 
010542k 
011642R 
41664aR 
024742k 
177304 

01 9644R 
@47852k 
01 4362R 
026156R 
va5a5aR 
090014 

005614 
Hadss26R 
019476R 
04 S106R 
6190272R 
0A1476R 
w22482K 
017556 
177312 

415672k 


FPMP11 FLUATING POJNT & MATH PA 


SYMUOL TABLE 
NTJS18 1d540R 
NXTS8 wuds74R 
OCTS25 16Ae4R 
ONESSS WZd606R 
QUTS14 S10626R 
QUTS28 w10552R 
OUTS35 17744R 
OUTS  ¥ds22R 
OVRsi 6v1566R 
OVRS1H W1d454R 
OQvRS2e J1510uR 
OVR$30 017430R 
OVRSS6 v2boz2eR 
OViSi6 ¥812762R 
OVissa 17432R 
PCKS8 wu4a52R 
PLSS42 Guv262R 
PLUS15 #11216R 
PLYSI5 Wl2uaar 
PLis42 000572R 
PMODE * waduee 
POINTL® @odu02 
POSS25 ©15612R 
PTFS&  w#o4g60R 
PY1815 12042R 
PY2S13 @10312R 
PY2359 WZ1SH56R 
P15$38 222722R 
P3$17  132356R 
Q 8 oovale 
GSRSLS B10Z60R 
QSTS37 oz0254R 
QUTS13 812276R 
Qi3s37 #20310R 
REGSIG O47144R 
RESLT § @uvale 
RETS42 2800220R 
RNOS22 B15166R 
RRNSS  w004664R 
RINSLS 810140R 
RTNS16 @13620R 
RTSS16 013126R 
RTi837 w2e220R 
RUDS9  @46340R 
RUSS9  w6SUOR 
R2 "xX 200u02 
RS #XOUOROS 
SCK32 #@2176R 
SCLS20 019046K 
SCNSS udSS24R 
SFOsi vl4alaR 
SFRS1 wel266R 
SFTS2 wv22i6R 
SFi$1 ¥13¥4R 
SGNS18 @193572R - 
SGNS39 wZ1604R 


$61915 


B12a76R 


NUMENO® 
NZES$25 
ONE S19 
wutTe2s42 
OuTsi9 
QuTs29 
QUTS38 
UUTS6 
OvR312 
OVRSL9 
OvVR$28 
OvR$3i 
OvVRSB 
ee 


PLes2e 
PLS$5 
PLUS39 
PLY$37 
PL2$i2 
PNTS8 
PoSsi9 
P08$27 
PT$42 
PY¥i$37 
Py2si5 
PiS17 
P2817 
P35s3a 
WSES13 
OSRS37 
QU0SL3 
QUTS37 
RDOS9 
REGSS 
RESULTS 
RITS8 
RORSi1 
RRiSii 
RTNS14 
RTNSS7 
RTSS18 
RT@S$i19 
RUL$9 
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esoava 
BiS646R 
@14e0aR 
@8817@R 
014349R 
@17126R 
02057AR 
BVIAVER 
@07692R 
21 4006R 
BL6606R 
Q175594R 
224670R 
B13452R 
a800do 
614752R 
BBSISAR 
@21216R 
V28324R 
287270R 
B2S796R 
@135752R 
016276 
200876R 
Q20346R 
8212052 
B15144R 
@I3S1L56R 
@20794R 
BLAG00R 
B20304R 
BiB2i6R 
Q203aaR 
0864592R 
282742R 
080006 
g85a22R 
087564 
08754eaR 
BiBE4GR 
B2G204R 
Q1S7V6R 
014544 
026476R 


RQ FRQOAHUG 
R3 BKO0000S 


$ 5 
SCL$190 
SCL33 

SC1$19 
SFDS2 

SFRE2 

SFTS$35 
SUNS1S 
SGN§$24 
868824 
SG61359 


O@0n26 

@27252R 
BBsSaWOAR 
O1a3L2R 
B2SS6R 
QY2206R 
¥177eOR 
812094R 
@15444R 
BISSIAR 
0216168 


NXT$24 U19346R 
OCL324 b615506R 
ONES$20 0190790R 
OUTSi @71552R 
QUTS2 082426R 
OUIS34 617404 
OUTS41 821756R 
OVFSi 00i1564R 
OVRS16 612764R 
OVRS$2 WS2Z4355R 
OVRS29 017159K 
OVR$35 8177548 
OVi$i2 2#07656R 
OViS28 #816604 
PC #x%000007 
PLMS42 000354K 
PLSS6 WaS406R 
PLYS15 @O18300R 
PLYS39 821550R 
PL2ss 005026K 
POINT a d94002 
POSS2@4 614574R 
PR4$13 O104346R 
PY18$413 0810322R 
PY1S39 621572R 
PY2$837 0229342R 
P1$29 @17B816R | 
P2329 217a3aR 
P45$38 4628712R 
QSES3S7 6281590R 
QST$15 O140224R 
QGUDS37 820246R 
QL59815 640264R 
ROFS9 #86402R 
RELS925 O15646R 
RETS21 0819446k 
RITS9 629634R 
RORS4 293284R 
RTI$42 0O84332R 
RTN${6 814275@R 
RTNS$41 621764R 
RT3$$3 81401590R 
RT2$42 890322aR 
RUZSO 086464 
R{ ex8evees 
R4 HXOQ0Q94 
SCK$1 vel2aaR 
SCLS19 #142590R 
SCLS$86 @05722R 
$Cise Q293742R 
SFLS2 vG2Z306R 
SFT$§4 d91236R 
SFO$2 O82326R 
SGN$16 012702k 
SGNS35 017736R 
$6586 025852R 
SHFS$11 @47522R 
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SHF $4 ew d2¥2R 
SIN b2Z2U64RG 
SMESS CvS266N 
SMT$19 01374¢R 
SNC$87 d2010e0R 
$P exvcogde 
SR 177311 
SR8S1 2u14eR 
STCSS €427690R 
STKS$S OB2754R 
STKS47 622226R 
STRS8 0u4564R 
STTS24 01527GR 
S$UB$1i 601690R 
$16$1 OYULIS4R 
TANSS8 622476R 
TNSS$15 ©11462R 
TSTS25 15616R 
TYPE #8 @ueala 
UNO$18 043462R 
UNDSS2 01744aR 
UNF S2 @82526R 
UPLS15 132@20R 
UPLS23 ¥815220R 
UPL$39 w2iu66R 
UPSi5 011776R 
UP$39 021556R 
xcose ¥A51@2R 
XPD$13 ¥814072R 
xas28 616710R 
X88U83O B17522R 
ZERSI 001622k 
ZERS16 0612526R 
ZER$19 @14274R 
ZERS27 016144R 
ZERSS2 617452R 
ZER$S8 028746R 
ZE1$28 #16266R 
ZFRS2@ 615044R 
ZT1$i 00176aR 
$A0D OUO7V4ARG 
SCMR OU334ARG 
$01 017640RG 
$oVb G122iuRG 
gECO C€O5A76RG 
SERVEG 622U56RG 
$GCO “4505 4RG 
$Io0 216U46RG 
$LDO w22096R 
SMLI 17 Q02RG 
$NGI 0175484RG 
$QCO 019526RG 
SPOPR4 037576RG 
SPSHR2 017572RG 
SPSHRS 017594RG 
$RI 01765ORG 
$sTo #22192R 


SIGN 8 
SINGLES 
SMES6 
SMT$2¢ 
SNGL 
SPC$9 
SRL32 
START 8 
STES$38 
STK$42 
STM$42 
878925 
$T4942 
SUS$2 
S8A§lL 
TBLS42 
TNSS$39 
TwCS19 
UNOSS 
UNDS$2 
UNUS6 
vPC 842 
UPL S19 
UPLS$26 
UPLS41 
UPSS 
UTSS$1i 
XC1$9 
xPO$15 
X@830 
X481458 
ZERS$1S 
ZERG17 
ZERS2 
ZERS28 
ZERSSI 
ZERS41 
ZE1350 
ZTS$! 
zT2si 
SADR 
$D0CI 
$OINT 
$0VI 
SERR 
SFCALL 
SIC] 
SINTR 
$LOR 
SMLR 
SNGR 
$POLSH 
gPOPRS 
SPSHRS 
$RCI 
$S8o 
$STR 


MACK VkKUd4el 4 O7eSEP&72 


oegove 
Quand, 
VAITOSR 
214602R 
O17772RG 
BV6592K 
Q02274R 
042044 
C2U492R 
Qve1e2rR 
082376R 
@15792R 
@Q814@R 
Q@82446R 
001376R 
Q8850aR 
@21346R 
014476R 
@01612R 
G02596R 
Q@4467aR 
@401I56R 
@i4116R 
016242R 
@21472€4R 
G¥2706R 
Q21576R 
@85122R 
0117132R 
017474R 
@101/76R 
B1a2ier 
013242R 
QV254aR 
Q@16204R 
017592R 
a224u0aR 
Q17424R 
a0171aR 
OBL794R 
@Q201eCRG 
O034492RG 
Q07490RG 
OLISLSIARG 
AZ2006RG 
BiSi24RG 
Q@LS2daRG 
QO5142RG 
222044R 
017192RG 
G17542RG 
A216494RG 
@17576RG 
O1757QRG 
BUS4S4RG 
A2UU70ORG 
022276R 


SIONS « 
SL9S$1 
SML$38 
SNC$13 
SN18$24 
SQHT 
SR$29 «& 
STCS$iv 
STAS1LY 
STA$46 
STRKS2 
$S7T$$9 
STO$42 
SUbsS25 
TANH 
TEMP a 
TRAP 
Twisly 
UND S16 
UNDS$2ea 
UNF $1 
UPL$14 
UPLS22 
UPLS3d 
UPS1 
UPS36 
UTS$2 
XPOS{42 
X§SU838 
x4@$28 
X4$37 
ZERS$14 
ZERS18 
ZERS$20 
ZEKS$29 
ZERSSS 
ZEK$8 
ZE28$25 
ZTS$$2 
21319 
$CMO 
$000 
SOK 
$DVR 
SERRA 
$FCO 
$ICQ 
$I 
$ML0 
SNGD 
$OCT 
$POPRS 
SPSHR1 
S$PSHRA 
$RO 
$S6R 
$V2aa 
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o20002 
081346R 
02057 4k 
1 2A00R 
419326R 
O2165URG 
77311 
227166R 
047156R 
022142R 
OG2416R 
WZ6322R 
0@816@R 
O19624R 
@20404RG 
@a0a42 
OBVA0BRG 
014502k 
012514k 
@€10614R 
041622R 
0140554R 
WL9II76R 
620564K 
OA721aR 
020754R 
042522k 
ee7¢54R 
22462aR 
616760R 
020254R 
81 4654R 
WL S456R © 
615126 
@171444R 
017766R 
024100R 
016626R 
€82582R 
141 @6R 
BO5242RG 
629046RG 
697622RG 
O01 3256RG 
O22016kG 
OVASA42RG 
VL 9ISS4RG 
01 OQ962RG 
@16146RG 
017542RG 
@19222RG 
BW1{76190RG 
047572RG 
017564RG 
OL 7616RG 
OY2ZAANG 
W21644ky 
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» ABS, wedade Buu 
Vee242 O04 


ERRORS OeTeCTev: 
FREE CURES 146635, WURDS 
PLPSSPREPOTL EPP MP MAC 


INDEX 


Absolute loader, 
A-4 
Addressing modes in TRAP calls, 
ASCII conversion routines, 2-3, 
3-12, 3-14 
errors, 3-14 
Assembler PAL-11S, 
error codes, B-3 
Assembly instructions, 
2-2 
Assembly switch tape, 


3-22, A-1, A-3, 


3-2 


B-1l 
conditional, 


32174. 3-20 


Binary exponent, 1-3 


Binary form of TRAP instruction, 3-4 

Blanks in input conversion 
routines, 2-4 

Bootstrap loader, 3-22, A-1, A-2, 
A-3 


Calling conventions, 3-6 
CLASS5 switch, 3-20 
Conditional assembly instructions, 2-2 
source codes, 3-17, 3-19 
Condition codes set by TRAP 
handler, 3-5 


Conversion routines, 2-2 through 2-5 


Data formats of conversion routines 
2-3 

Decimal position, 

Division, 1-2 

Double precision 
package, 2-2 
storage, 1-3 
switch, 3-2 

D type conversion, 
scale factor, 2-4 


2-4 


2-3, 2-5 


Entry points, 3-1 


Errors 


ASCII conversion routine, 3-14 
assembly, 3-21 

CLASS5, 3-20 

floating point operations, 3-15 


FPMP-11 code, 3-16 

PAL-11S assembler, B-3 

user error handling routines, 
user floating point, 3-1 


3-15 


E type conversion, 2-3 
scale factor, 2-4 
Excess 128 code, 1-3 


Exponent in floating point notation, 
de2 * 


Fixed point notation, 1-2 
FLAC see Floating point accumulator 
Floating point accumulator (FLAC), 
3-1 
restrictions, 3-1l 
Floating point compare, 
Floating point notation, 
double precision, 1-3 
normalized, 1-2 
Single precision, 
storage, 1-3 
FORTRAN library functions, 3-10 
FORTRAN operating time system, D-2 
Fractional representation, 1-2 
F. type conversion, 2-3 
scale factor, 2-4 


32-5 


ily ie] 


1-3 


Global entry points of FPMP-1l, D-1l 
-GLOBL assembler directive, 3-2 
G type output conversions, 2-3, 


scale factor, 2-4 


2-5 


Hardware option switches, 3-17, 3-18 


Hardware requirements, 1-1 


Immediate mode, 3-2 
Input conversion routines, blanks 


in, 2-4 

Integer conversion, 2-5 
I type conversion, 2-3, 2-4 
JSRR mode, 3-6, 3-10 

storage of results, 3-11 
JPC mode subroutine call, 3-12, 3-13 
LINK 11S linker, 3-22, C-l 

error halts, C-6 

error procedure and messages, C-3 


fatal errors, C-4 
non-fatal errors, 
restarting, C-3 
Loaders, 3-22, A-1l 
Loading instructions, FPMP-1l 
package, 3-22 


Cra 


Modes in TRAP calls, 
Multiplication, 1-2 


3-2 


LZ 
1-2, 


Negative exponent, 
Normalized numbers, 
Number storage, 1-3 


1-4 


One-word integer conversion, 2-5 
OTS routines, 3-1, D-2 

called directly, 3-8 

non-OTS routines, D-8 
O type conversion, 2-3, 2-4 


PAL-11S Assembler, B-l 
error codes, B-3 
operating procedures, B-1l 

Polish mode, 3-6 
calls, 3-8 through 3-10 


@RO: mode, 3-2 

Relative mode, 3-2 

Routines accessed by TRAP handler, 
D-8 


Sample program, 4-1 
Scale factor, 2-4 
Single precision 
package, 2-1 
Switch, 3-20 
word storage, 1-3 
Software requirements, 1-1 
Source listing, E-l 
Source tapes, 2-2 
Special packages, creation of, 3-17 
Stack mode, 3-2 
Storage of floating-point numbers, 
1-3 
Switch tape assembly, 3-17 
Switches 
CLASS5, 3-20 
double precision, 3-20 
Single precision, 3-20 
Summary FPMP-11l routines, D-l 
Symbol table size limitations, 3-21 


Transcendental functions, 3-20 
TRAP calis 

addressing modes, 3-2 

binary form, 3-4 

source form, 3-4 
TRAP handler, 3-2 

for OTS routines, 3-l 

routines, D-8 

user routines, 3-6, 3-7 
Trigonometric functions, 3-20 
Two-word integer conversion, 2-5 


User error handling routines, 3-15 


HOW TO OBTAIN SOFTWARE INFORMATION 


Announcements for new and revised software, as well as programming notes, 
software problems, and documentation corrections are published by Software 
Information Service in the following newsletters. 


Digital Software News for the PDP-8 & PDP-12 
Digital Software News for the PDP-II 
Digital Software News for the PDP-9/15 Family 


These newsletters contain information applicable to software available from 
Digital's Program Library, Articles in Digital Software News update the 
cumulative Software Performance Summary which is contained in each basic 
kit of system software for new computers. To assure that the monthly Digital 
Software News is sent to the appropriate software contact at your installation, 
please check with the Software Specialist or Sales Engineer at your nearest 
Digital office. 


Questions or problems concerning Digital's Software should be reported to 
the Software Specialist. In cases where no Software Specialist is available, 
please send a Software Performance Report form with details of the problem to: 


Software Information Service 
Digital Equipment Corporation 
146 Main Street, Bldg. 3-5 
Maynard, Massachusetts 01754 


These forms which are provided in the software kit should be fully filled out 
and accompanied by teletype output as well as listings or tapes of the user 
program to facilitate a complete investigation. An answer will be sent to the 
individual and appropriate topics of general interest will be printed in the 
newsletter. 


Orders for new and revised software and manuals, additional Software Per- 
formance Report forms, and software price lists should be directed to the 
nearest Digital Field office or representative. U.S.A. customers may order 
directly from the Prooram Library in Maynard. When ordering, include the 
code number and a brief description of the software requested. 


Digital Equipment Computer Users Society (DECUS) maintains a user library 
and publishes a catalog of programs as well as the DECUSCOPE magazine 
for its members and non-members who request it. For further information 
please write to: 


DECUS 

Digital Equipment Corporation 
146 Main Street, Bldg. 3-5 
Maynard, Massachusetts 01754 


FPMP-11 User's Manual 
DEC-L1-NFPMA-A-D 


READER'S COMMENTS 


Digital Equipment Corporation maintains a continuous effort to improve the quality and usefulness 
of its publications. To do this effectively we need user feedback -- your critical evaluation of 
this manual. 


Please comment on this manual's completeness, accuracy, organization, usability. and read- 
ability. 


Did you find errors in this manual? If so, specify by page. 


How can this manual be improved? 


Other comments? 


Please state your position. Date: 
Name: Organization: 
Street: Department: 


City: State: Zip or Country 
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